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GLOSSARY 

Boeing Aerospace Company 

The family of computer codes developed under 
this contract or the specific module for 
calculating the probability of no 
penetration. 

The diameter of a particle that just 
penetrates a configuration for a given impact 
velocity and angle. 

element identification number 

finite element model 

The number of particles passing through unit 
area per unit time. 

Parameter controlling maximum number of 
elements in common block. 

multilayer insulation 

Marshall Space Flight Center 

National Aeronautics and Space Administration 
NASA structural analysis finite element code 
NASTRAN to universal file format translator 
Nth element 
personal computer 

element's property identification number 

probability of no penetration 

translates RESPONSE binary output file to a 
formatted file suitable for plotting. 

Graphic preprocessor and postprocessor for 
finite element analysis by Structural 
Dynamics Research Corporation of San Diego, 
California. 

Space Station critical element 
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Universal 

VAX 

VMS 


File Format Machine - independent format for transmitting 
data to and from SUPERTAB (see app . A) 

Mainframe computer build by Digital Equipment 
Corporation. 

Virtual Memory System, operating system for 
VAX computers . 
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1 . 0 INTRODUCTION 

The analysis code BUMPER executes a numerical solution to the 
problem of calculating the probability of no penetration (PNP) of a 
spacecraft subject to man-made orbital debris or meteoroids impact. 
The term "BUMPER” as used in this document, refers to both the 
overall family of codes as well as the specific computer program 
BUMPER. This document provides step-by-step procedures and theory 
for performing such an analysis. The examples provided in the text 
reflect our approach to analyzing Space Station structure, but the 
principles can be applied to any structure that can be modeled with 
finite elements. Advantages of this approach include (1) impact 
shielding of one element by another (shadowing) is considered, (2) 
users can specify various shield configurations over the spacecraft 
exterior to reflect design requirements, and (3) the effects of 
changing spacecraft flight orientation and orbital altitude 'can be 
determined. 

The codes were developed on a DEC VAX 11/780 computer that uses 
the VMS operating system. They are written in Fortran 77 with no VAX 
extensions . 

To help illustrate the steps involved, we carry a single sample 
analysis through the users guide. The example is our Space Station 
reference configuration used throughout contract performance. The 
finite element model (FEM) of this configuration is relatively 
complex but demonstrates many BUMPER features. 

A flow chart for a complete analysis is shown in figure 1.0-1. 
The path indicated by solid lines is required to perform a 
fundamental analysis resulting in an overall PNP for the spacecraft. 
The dashed lines show how ancillary sensitivity studies on design 
variables are performed. 

1.1 DOCUMENT ORGANIZATION/SECTION DESCRIPTIONS 

Section 2.0 describes computer tools and guidelines for 
constructing a FEM for the space structure under consideration. 


Section 3.0 carries through the steps in a fundamental analysis 
of the model constructed in section 2.0. 

Section 4.0 describes the methods used to analyze the 
sensitivity of PNP to variations in design. 

Section 5.0 suggests ways for developing contour plots of the 
sensitivity study data. 

Section 6.0 provides additional BUMPER analysis examples and 
includes FEMs , command inputs, and data outputs. 

Section 7.0 describes the mathematical theory used as the basis 
for the code and illustrates the data flow within the analysis. 
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2.0 BUILDING A MODEL 

The geometry and orientation of the spacecraft is defined 
mathmatically through the the use of a FEM. The conventions for 
building such a model are described below. 

2.1 INPUT FILE FORMAT 

The FEM model used to represent the spacecraft geometry and 
configuration may be built using conventional FEM generation 
techniques. Under this contract, the FEM preprocessor and 
postprocessor SUPERTAB was used for building and debugging the model 
and later for analysis results presentation. This was done for 
convenience; the model generation code or method used is not 
critical. Other FEM codes such as ANSYS or SPAR may be used to 
build the model but will require a translator to convert the node 
and element connectivity information into the proper format. After 
generation the completed model is written to an analysis input file 
in the SUPERTAB Universal File Format. This is the format the 
analysis code GEOMETRY uses. For convenience a NASTRAN to Universal 
File Format translator named NASUP is available from NASA/MSFC. A 
model built using another format will require a translator to 
convert it to the Universal File Format shown in appendix A of this 
doctiment . 

2.2 MODELING CONVENTIONS 

Nodes must all be defined in one global Cartesian coordinate 
system, as shown in figure 2.2-1. GEOMETRY does not check to see if 
more than one system is used. The positive X-axis must be parallel 
to the velocity vector, and the positive Z-axis must point toward 
the zenith (away from Earth). Failure to follow these conventions 
will invalidate the model and the analysis. 

Only triangular elements may be use to build the FEM. The most 
reliable results are obtained using equilateral triangles, but right 
isosceles triangles may be more convenient when modeling cylindrical 
components. In any case, the element's aspect ratio should be as 
close to (1:1) as practical. Long, thin triangular elements may lead 
to erroneous results. This is because the hidden surface algorithm 
determines if an element's centroid is hidden by another element 
when deciding whether or not an element is exposed. 

When modeling cylindrical sections, at least 24 divisions (48 
elements) should be used around the circumference, as shown in 

2.2-1. Axial divisions then should be chosen to optimize the 
aspect ratio (1:1). The user should be aware that sensitivity 

studies of element sizes were done for horizontal cylindrical 

sections only. Also, the user should ensure an adequate model by 

that the calculated PNP does not change significantly with 
changes in mesh size. 

All dimensions must be specified in meters. Using any other 
dimensional system will require code revisions. 

The node numbering order defines, by the right-hand rule, the 


3 



D 180-30550-4 



M Space station 


velocity vector 

Model Coordinate System 


Figure 2.2-1. Modeling Conventions. 
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direction of the element's outward normal vector. The code uses the 
nodes in order 1, 2, 3. This vector is used to determine whether or 
not the element faces toward the threat, and it is extremely 
important to an accurate analysis. Ordinarily the outer surface of 
the FEM consists of elements all having outward normal vectors, but 
in special cases where impacts on internal surfaces (particles 
passing through openings) are important, additional elements with 
inward pointing normal vectors may be required. Figure 2.2-2 shows 
a Solar Dynamic Receiver model in which both outward and inward 
normal elements are used. Debris and meteoroids could strike the 
receiver's outer surface or pass through the orifice and strike the 
more sensitive inner surface. 

A maximum of 10 property identifications (PID) , numbered 1 
through 10 sequentially, may be defined. The code can be easily 
modified to allow for more PIDs. Each PID defines one unique wall, 
shield, spacing, and multilayer insulation (MLI) configuration. 
Therefore, each model may contain only 10 different wall 
configurations. These configurations may be either a conventional 
double plate (shield and pressure wall) arrangement, with or without 
30 layers of MLI or a single thick wall. The code assumes all 
elements are parallel flat plates without curvature for penetration 
analysis . 

The maximum number of elements allowed depends on the computer 
system. For a mainframe, the practical maximum is approximately 8000 
elements; for an IBM- compatible personal computer (PC), the 
practical maximum is approximately 400 elements. The large data 
files required when analyzing a small model for meteoroid impacts 
may preclude using this code on a PC due to memory limitations. 

The PNP will be calculated for specific ranges of element ids. 
Therefore several items should be kept in mind while building the 
model and determining the element numbering scheme. All elements 
representing a single Space Station critical element (SSCE) should 
be numbered within a single range of numbers and sequentially if 
possible, for example, number all the elements representing common 
module 1 in the range 1000-1999 and for node 3 in the range 
5000-5999. This allows determination of PNP for each SSCE. Within 

^^rige of element IDs any combination of PIDs , up to a maximum 
of 10, may be used to accurately described differences in wall 
construction. 

Many customary FEM modeling limitations do not apply here. 
Coincident, extra, and unattached nodes will not cause premature 
code failure. The model does not require constraint against 
translations or rotations, as it is used only to define spacecraft 
geometry. Structures that are in reality attached need only be 
modeled as adjacent to each other. An important limitation is that, 
if a structure normally shadows (hides) another's view of a threat, 
it must be modeled with sufficient accuracy and resolution to 
represent that shadowing. Any elements totally enclosed and 
therefore completely shielded from all threats by other elements 
will not affect the solution. 

The limits on elements may be changed, if necessary, to allow 
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analysis of larger models. This may be done by modifying the 
parameter lELM in the files COMMONl.BLK, and C0MM0N2.BLK and 
recompiling the GEOMETRY and BUMPER codes. A careful user should 
perform test cases to ensure numerical limitations or instabilities 
are not encountered. This can be done by rerunning the analysis for 
models previously run under the unmodified software to ensure no 
differences in the outputs occur. 

To change the number of PIDs both the source code of RESPONSE 
and the C0MM0N2 . BLK file must be modified. In the RESPONSE source 
code the dimension statement for RTABLE must be changed to the new 
values and the code recompiled. In the C0MM0N2.BLK file the 
dimensions of the RESPONSE array should match those of RTABLE. The 
BUMPER code then must be recompiled. 


7 



D 180-30550-4 


This page left intentionally blank. 


8 



D 180-30550-4 

3.0 ANALYZING A MODEL 

3 . 1 REFERENCE CONFIGURATION 

To demonstrate the features of BUMPER and to illustrate design 
and analysis methodology, we selected the model of the reference 
configuration shown in figure 3.1-1; this model is described more 
fully in the Final Report (ref. 1). The reference configuration is 
representative of a typical Space Station configuration but does not 
represent any specific design. 

Figure 1.0-1 shows the steps necessary to analyze the model 
described in section 2.0. Section 6.0 contains an example of the 
questions and menu options asked by each analysis module, what they 
represent, and typical responses. The required solution sequence is 
described in the following sections in the normal order of 
execution . 

3.2 GEOMETRY MODULE 

After the model has been built and verified, the geometry data 
must be written to a file using the SUPERTAB Universal File Format. 
GEOMETRY then reads in this information and creates the geometry 
data base for either meteoroid or debris analysis. Two geometry data 
bases are required for a complete analysis, one for debris and one 
for meteoroids . The data bases need only be recreated if the 
spacecraft geometry or orientation with respect to the velocity 
vector changes. This is the most computer -intensive portion of the 
analysis. If possible, it should be performed using a batch mode to 
minimize cost. 

3.3 RESPONSE MODULE 

After the geometry data bases have been produced, the wall 
penetration response data bases are created. Two data bases are 
required for a complete analysis, one for debris and one for 
meteoroids. RESPONSE creates these data bases for up to 10 unique 
wall configurations. These configurations are identified through the 
use of element property identifications (PID) in the FEM. RESPONSE 
does not have available any information about the model; therefore, 
the user must keep track of the number of PIDs and their 
relationship to the actual spacecraft. RESPONSE will prompt the user 
with various questions to determine the wall configurations for a 
Particular analysis type. The results of the analysis are written to 
a user-defined file in binary format. The file contains the critical 
diameter for each wall configuration as a function of impact 
velocity and impact angle. A computer program named RPLOT is 
available from MSFC that converts the binary information to a form 
suitable for plotting. This is useful for illustrating the 
correlation between predicted wall response versus test data, as 
shown in figure 3.3-1. As a general rule, the user should examine 
the response plots for each wall configuration to ensure that the 
results are reasonable. RESPONSE is relatively inexpensive to use 
and therefore normally is run in an interactive mode. Examples of 
typical questions and inputs to RESPONSE and RPLOT are given in 
Section 6.0. 
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Figure 3. 1- 1. Space Station Geometry Model, 5000 Elements 



D 180-30550-4 



<D 


in 




n 


eg 


o 


<j) 


GO 




to 


in 




ro 


eg 


O 


U 

LlI 

i/) 

\ 


H 

O 

O 

— t 
U 
> 


(J 

< 

CL 

2 


\nO *d313kMVia 31ll03r0d<d nvoilldo 

11 


Figure 3.3-1: Correlations of Predictions Versus Test Data 
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3.4 BUMPER MODULE 

Once the geometry and response data bases have been created, 
the probability of no penetration (PNP) is calculated using the 
BUMPER module. BUMPER will have to be run twice to perform a 
complete analysis, once for debris and once for meteoroids. The 
results from the two analyses are multiplied together to determine 
the overall PNP for both debris and meteoroids. The code prompts the 
user for information concerning the analysis type, summary filename, 
exposure time, operating altitude, geometry and response data base 
filenames, and the element ID ranges. The element ID ranges define 
the individual components (SSCE) for PNP calculation. The code also 
determines the PNP for the overall model. The results are then 
written both to the screen and to the user-defined summary file. 
Additionally BUMPER determines the effective area of the components 
and overall model. This information can be used in a simplified 
analysis to determine the number of particles of diameter D or 
greater per unit time affecting a specific component. 

Additionally, BUMPER can produce the probability of penetration 
values per surface area for each element, which SUPERTAB can then 
plot as contours on the geometry model. These contours show the 
relative vulnerability of various Space Station external areas. This 
procedure is discussed in more detail in section 5.0 

3.5 CONTOUR MODULE 

BUMPER calculates the PNP for each component for a specific 
wall configuration. Sometimes, however, it is required to know how 
changes in wall configuration affect the PNP of an individual 
component. CONTOUR produces a data base that may be used with 
user- supplied software to produce design contour plots. These plots 
show the relationship between shield and vessel wall thickness and 
PNP for a fixed shield standoff. 

The code is similar to BUMPER, with the exception being that 
the RESPONSE code has been incorporated as a subroutine. The code 
uses the same geometry data base as BUMPER. CONTOUR, however, is 
limited to the case of one PID and one element ID range. This topic 
is discussed further in section 5.0. 
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4.0 PERFORMING SENSITIVITY STUDIES 

Two types of sensitivity studies are typically required, (1) 
those that can be calculated manually from previous results and (2) 
those that require rerunning part of the solution sequence. Both 
will be covered in this section. 

4.1 MANUALLY CALCULATED FROM PREVIOUS RESULTS 

Studies falling into this category measure the effects on PNP 
of simple variations in orbital time, surface area, or flux. To 
begin, a PNP value must be calculated using the solution sequence 
shown in figure 1.0-1 and described in section 3.0. The fundamental 
equation for calculating PNP is 


PNP - EXP [ -A * T ] (1) 

where A is the average number of penetrating particles per unit time 
and T is the exposure time. A is defined by equation 2 

A = A j * COS(B^) ^ F(Dc(V^,Bi)) ^ ^ (2) 

where Aj is the element's surface area, F(D^(Vj_ B^)) is the flux of 
the critical projectile with impact velocity and impact angle 
B^, P(0£,a^) is the probability of the threat described by polar 

angles and occurring and Ig is an indicator equal to 1 if the 
element is exposed and 0 if not. NT is the total number of threat 
angle cases and NELM is the number of elements in the range of 
interest (SSCE) . 

Scaler changes to the A, T, and F terms allow the PNP to be 
recalculated manually. Scaler changes to A imply that all the 
elements area change by a constant amount. Scaler changes to F imply 
that the flux of all particles changes by a constant amount. Scaler 
changes to T imply a simple change in the exposure time. Any changes 
that would affect the geometry or orientation of the model require 
that the GEOMETRY module be run again. 

The preceding variables can be adjusted to calculate 
alternative PNPs . For example, if BUMPER calculated a PNP - 99% for 
a given Space Station configuration and orientation for 10 years in 
orbit, and it was necessary to calculate the effect of doubling the 
time in orbit, then the following technique should be used: 

a. Divided PNP by 100 to convert it to a decimal fraction. 

PNP - 99%/100 - 0.99 

b. Take the natural logarithm of the fractional form of PNP 
Ln(0.99) - -0.0101 « -AT 

c. Divide -AT by 10 years to calculate the A term. 

-A - -0.0101/10 » -0.00101 

d. Multiply the -A term by 20 years. 

-AT « -0.00101 ^ 20 “-0.0201 

e. Calculate a new PNP based on the new time in orbit 
PNP' = 100% V. q^O.0201 ^ 98.01% 
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An example of this type of sensitivity study is shown in figure 
4.1-1. This calculation is valid only if all other variables remain 
constant during the extended time in orbit. If the environment, 
surface area, or configuration is expected to change during that 
time, the technique in section 4.2 must be used. The previously 
described method can be used to study the effects of changes in 
either flux, time, or surface area with just a minimum of computing 
resources. (Note: doubling the value in step c produces an 
equivalent result by effectively doubling the time in orbit.) 


4.2 STUDIES REQUIRING RERUNNING SOLUTION SEQUENCE 

Studying changes in the Space Station's orientation, as shown 
in figure 4.2-1, requires a unique GEOMETRY analysis for each 
orientation. This requires a unique universal file with the nodal 
coordinates defined appropriately. SUPERTAB allows easy modification 
of the reference coordinate system, simplifying this task to a few 
keystrokes. The actual method used will depend on the model 
generation system selected by the user. 

Sensitivity studies of changes in wall configuration require 
running GEOMETRY once to create either a debris or meteoroid data 
base and running RESPONSE once for each new wall configuration. 
BUMPER is then run for each unique response data base. 

Sensitivity studies on the effects of changes to either the 
flux or the penetration function will require modification of either 
the RESPONSE or BUMPER modules, respectively. This will require 
careful study of section 7.0 and appendix C or D. If the changes in 
the flux are not constant, then the flux equation must be changed 
in the appropriate BUMPER subroutine. Changes in the penetration 
function must be handled in a similar manner, by modifying the 
appropriate equations in the various subroutines of RESPONSE. 
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Figure 4,1-1. Results of Orbital Time Sensitivity Study 
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5.0 GENERATING CONTOUR PLOTS 

The data for two types of contour plots can be generated by 
BUMPER; (1) a threat contour plot and (2) a design contour plot. 
Nevertheless , the actual method of displaying the data generated by 
BUMPER depends on the computing and graphics resources available to 
user . 

5.1 THREAT CONTOUR PLOTS 

The threat contour plots are generated as a postprocessing 
feature of SUPERTAB. The last question BUMPER asks during execution 
is whether the user wants to write out a SUPERTAB input file. If 
the user answers "YES" BUMPER writes out a file containing the 
probability of penetration per surface area for each element in the 
model. An example of a threat contour plot is shown in figure 
5.1-1. Figure 5.1-2 shows a sample SUPERTAB input file written by 
BUMPER for generating the plot in figure 5.1-1. An explanation of 
the format used is shown in appendix A. 

Use of preprocessors other than SUPERTAB will require either 
the developing a translator to change the data format or modifying 
subroutine SUPER in BUMPER. 

5.2 DESIGN CONTOUR PLOTS 

Generating design contours is a more involved process. The 
ranp of input variables must be defined by determining a minimum, 
maximum, and increment for shield thickness (Ts) , vessel wall (Tb) 
thickness, and spacing (S) between the two. Examples of inputs to 
generate this data are given in section 6.0. The program CONTOUR 
then^ loops through the parameters, calculating the PNP for each 
configuration and writing Ts, Tb, S, PNP to the summary file. 
Figure 5.2-1 shows a sample design contour plot, and figure 6.4-2 
shows the associated CONTOUR output file used to generate such a 
plot. 


The actual program used to produce the contour plot is a 
user-supplied item. During the contract a Boeing -developed isoterm 
graphics program was used but any contouring package should work. 
Care should be taken when selecting a package. Most packages use a 
linear interpolation to determine the contours. If this is the case 
the log of the PNP should be plotted versus shield and vessel wall 
thickness because it more closely varies linearly. 
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SPACE STATION LOAD CASE: 1 

PROBABILITY OF PENETRATION (X) PER SQ-METER MIN; +O.OOOEtOO MAX: t5.796E-04 



Figure 5.1-1. Threat Contour Plot — Debris Environment 
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MAN-MADE ORBITAL DEBRIS ANALYSIS 

PROBABILITY OF PENETRATION (%) PER S(}-METER 

ONE 
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10 112 1 
111 
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10000 1 

0. 11814E-05 

10005 1 

0.30171E-04 

10020 1 

0.21931E-02 

10025 1 

0.21931E-02 

10030 1 

0.21931E-02 

10035 1 

0.21931E-02 

10040 1 

0.21931E-02 


10045 1 

85780 1 

0. 18242E-02 

85790 1 

0. 18242E-02 
-1 


Figure 5.1-2. SUPERTAB Postprocessing Input for Threat Contout Plot 
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6.0 EXAMPLES 

This section shows a sample of the execution of each module 
within BUMPER; a sample of the summary output file, and an 
explanation of each question as well as typical replies. Items in 
bold font are typed in by the user either to run a module or in 
response to questions. 

6 . 1 GEOMETRY 

Figure 6.1-1 shows the questions asked by GEOMETRY Version 
2.51. The first question asks whether the geometry data base will 
be for debris or meteoroid analysis with the default being debris. 

The second question asks for the name of the file containing 
the geometry data in a SUPERTAB-compatible Universal File Format. A 
carriage return defaults the file name to " STATION. UNI . " 

The third question asks for the data base file name. GEOMETRY 
will create this file and write out in a binary format the geometry 
data base. A carriage return defaults the data base filename to 
"STATION.GEM. " 

For debris analysis the fourth and final question asks for the 
number of uniform threats. The default is 45, which means that 
GEOMETRY will examine the model in 45 equal steps from +90.0 deg to 
-90.0 deg (every 4 deg) on either side of the X-axis or velocity 
vector, as shown in figure 6.1-2. GEOMETRY writes out a message as 
each threat case is completed and then indicates that it has 
successfully completed its function by writing out the name of the 
data base file. 

If the desired analysis type was meteoroids, then the fourth 
question is about the number of uniform meteoroid threats. Figure 
6.1-3 shows an example of a GEOMETRY run for meteoroid analysis. 

shows how a hemisphere is divided into approximately 
equal segments to generate a uniform series of meteoroid threats. 

6 . 2 RESPONSE 

Figure 6.2-1 shows the questions asked by RESPONSE Version 2.0 
and gives typical responses. The first question asked, is if the 
threat to analyze is debris or meteoroids. The default is debris 
which means an aluminum projectile will be assumed. If meteoroids 
are chosen, an icy me-teoroid projectile with a density of 0.5 g/c^ 
will be assumed. 

The second question asks for the wall property output file 
name. This summary file, shown in figure 6.2-2, records the 
analysis type and wall configuration used. 

The third question asks for the response data base output file 
n^e. This is the binary data base contains the critical projectile 
diameter values as a function of PID, impact angle, and impact 
velocity. This file is then used by BUMPER to determine PNP. 
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RON GEOMETRY 

GEOMETRY VER 2.51 

ANALYSIS TYPE ? 

1 - DEBRIS <CR> 

2 - METEOROIDS 
ANSWER 1 OR 2 >1 

SUPERTAB UNIVERSAL FILENAME ( CR=STATION . UNI ) >STATION.ONI 

OUTPUT FILENAME ( CR=STATION . GEM) > EXAMPLE. GEM 

NUMBER OF UNIFORM DEBRIS THREATS (CR=45) >45 

THREAT CASE 1 COMPLETED 

THREAT CASE 2 COMPLETED 

THREAT CASE 3 COMPLETED 


THREAT CASE 42 COMPLETED 
THREAT CASE 43 COMPLETED 
THREAT CASE 44 COMPLETED 
THREAT CASE 45 COMPLETED 

OUTPUT LOCATED IN FILE EXAMPLE. GEM 


Figure 6. 1- 1. Example of GEOMETR Y Run — Debris 
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Veiocity vector 

X 



Figure 6, 1-2. Debris Threat Generation 
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RUN GEOMETRY 

GEOMETRY VER 2.51 

ANALYSIS TYPE ? 

1 - DEBRIS <CR> 

2- METEOROIDS 
ANSWER 1 OR 2 >2 

SUPERTAB UNIVERSAL FILENAME (CR=STATION. UNI ) >TOBES.DNI 

OUTPUT FILENAME ( CR=STATION . GEM) > EXAMPLE -2. GEM 

NUMBER OF UNIFORM METEOROID THREATS ? 

1-84 

2 - 146<CR> 

3 - 232 

4 - 329 

ANSWER (1-4) >2 

THREAT CASE 1 COMPLETED 

THREAT CASE 2 COMPLETED 

THREAT CASE 3 COMPLETED 


THREAT CASE 143 COMPLETED 
THREAT CASE 144 COMPLETED 
THREAT CASE 145 COMPLETED 
THREAT CASE 146 COMPLETED 

OUTPUT LOCATED IN FILE EXAMPLE -2 . GEM 


Figure 6. 1-3. Example of GEOMETRY Run — Meteoroids 
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Element coordinates selected to 
provide elements of equal area. 

Threat angles and <t>> are 
measured to centroid of 
curved surface element. 

All combinations of d| and 0? 
are equally likely. ^ 


Reference axis 



Figure 6. 1-4. Meteroid Threat Generation 
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RON RESPONSE 

RESPONSE VER 2.0 
Last Update 5/25/87 

ANALYSIS TYPE ? 

1 - DEBRIS <CR> 

2 - METEOROIDS 
ANSWER 1 OR 2 : 1 

OUTPUT FILENAME FOR WALL PROPERTIES <CR>=RESPONSE . SUM : RESPONSE. SUM 
OUTPUT FILENAME FOR RESPONSE TABLES <CR>=STATION. RSP : EXAMPLE. RSP 
INPUT IN METRIC OR ENGLISH UNITS <CR>=METRIC : METRIC 
PROPERTY ID NUMBER = 1 

CONFIGURATION TYPE 

1- SINGLE PLATE 

2- DOUBLE PLATE <CR> 

ANSWER (1 or 2) : 2 

PENETRATION FUNCTION 

1- ORGINAL <CR> 

2- PEN4 

3 - REGRESS ION 
ANSWER (1-3) : 3 

SHIELD MATERIAL 

1- 2024-T4 

2- 2219-T87 

3- 6061-T6 

4- 7075-T6 

SELECT MATERIAL NUMBER <CR>=1 : 3 
SHIELD THICKNESS (CM) = : 0.160 

( continued on next page) 


Figure 6.2- 1. Example of RESPONSE Run 
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( continued from previous page) 

VESSEL WALL MATERIAL 

1- 2024-T4 

2- 2219-T87 

3- 6061-T6 

4- 7075-T6 

SELECT MATERIAL NUMBER <CR>=1 : 2 
VESSEL WALL THICKNESS (CM) = : 0.3175 
SHIELD STAND-OFF (CM) = : 10.160 

INCLUDE 30 LAYERS OF MLI BETWEEN PLATES <CR>=YES : YES 
DO YOU WISH TO RUN ANOTHER CASE ? <CR>=YES : NO 


Figure 6.2- 1. Example of RESPONSE Run (Continued) 
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RESPONSE VER 2.0 

MAN-MADE ORBITAL DEBRIS ANALYSIS 
PROPERTY ID 1 
DOUBLE PLATE 

REGRESSION PENETRATION FUNCTION 

SHIELD MATERIAL = 6061-T6 

SHIELD THICKNESS (CM) = 0.1600 

VESSEL WALL MATERIAL = 2219-T87 

VESSEL WALL THICKNESS (CM) = 0.3175 

SHIELD STAND-OFF (CM) = 10.1600 

30 LAYERS OF MLI BETWEEN SHIELD AND VESSEL WALL 

$ 


Figure 6.2-2. RESPONSE Summary File 
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The fourth question determines the length units to be used for 
input-output, either English (inches) or metric (centimeters). 

(The code loops through the next series of questions generating 
data bases for each unique wall configuration.) 

The fifth question determines the configuration type, either a 
single plate wall construction or a dual plate consisting of a 
shield (bumper) and pressure wall, the latter is the default. 

The sixth question is for double plate analysis only and 
determines the penetration function to be used. These functions are 
described in more detail both in reference 1 and in section 7.4.6. 
The recommended penetration function for Space Station type 
applications is regression. 

The next series of questions establish the material and plate 
thickness for the shield and vessel (pressure) wall, the standoff 
distance between the two plates (for dual plate configuration) , and 
whether or not 30 layers of MLI are to be included between the 
plates. For single plate analysis only, the vessel wall material and 
thickness is read in. 

The last question asks whether the user wants to run another 
case (configuration). If the answer is "NO," then the code writes 
the data base and summary output file; otherwise it increases the 
property identification number (PID) in increments of one and 
resumes asking questions about the wall configuration. The default 
answers on subsequent wall configuration questions is the same as 
the answer on the previous configuration. The user must trace the 
number of PIDs and where they appear in the model. 

6.3 BUMPER 

Figure 6.3-1 shows the questions asked by BUMPER Version 4.0 
and gives typical responses. 

The first question asks for the name of the summary file, an 
example of which is shown in figure 6.3-2. As with RESPONSE, this 
summary output file can be used by the user as a record of the 
filenames, analysis, and results. 

The second question establishes the analysis type, either 
debris or meteoroids . This determines which flux equation is used 
within BUMPER. 

The third question asks for the exposure time (orbit time) in 
years. The default is 10 years. 

The fourth question asks for the operating altitude of the 
spacecraft in kilometers. When the altitude varies with time (which 
is the case with Space Station ) , the recommended altitude is the 
antilogarithm of the sum of the logarithms (base 10) of the average 
yearly altitude. An example of the orbital altitude calculation is 
shown in figure 6.3-3. If this information is not available, then 
the average or nominal altitude should be used. 
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RDN BDMPER 

BUMPER VER 4.0 
Last Update 5/25/87 

SUMMARY OUTPUT FILENAME ( CR=BUMPER. SUM) > 

ANALYSIS TYPE ? 

1 - DEBRIS <CR> 

2 - METEOROIDS 
ANSWER 1 OR 2 >1 

SPACE STATION EXPOSURE TIME (YEARS) <CR=10.0> : 10.0 

OPERATING ALTITUDE ( 400-500 km ) <CR=500> : 500.0 

THE PROBABILITY OF NO PENETRATION WILL BE CALCULATED 
FOR SPECIFIC RANGES OF ELEMENT IDS 

INPUT THE STARTING AND ENDING ELEMENT ID FOR EACH RANGE 
ENTER D <CR> OR <CR> WHEN DONE 
RANGE 1 

STARTING ELEMENT ID : 1 
ENDING ELEMENT ID : 10000 
RANGE 2 

STARTING ELEMENT ID : 

GEOMETRY OUTPUT FILENAME ? <CR=STATION. GEM> >EXAMPLE.GEM 
RESPONSE OUTPUT FILENAME ? <CR=STATION . RSP> >EXAMPLE.RSP 


(continued on next page) 


Figure 6.3- 1. Example of BUMPER Run 
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(continued from previous page) 

THREAT CASE 1 COMPLETED 
THREAT CASE 2 COMPLETED 
THREAT CASE 3 COMPLETED 


THREAT CASE 42 COMPLETED 

THREAT CASE 43 COMPLETED 

THREAT CASE 44 COMPLETED 

THREAT CASE 45 COMPLETED 

RANGE STARTING EID ENDING EID PNP % Aeff sq-m 

1 1 10000 96.11964 152.60001 

TOTAL PRROBABILITY OF NO PENETRATION (%) = 96.11964 

TOTAL EFFECTIVE AREA (SQ-M) = 152.60001 

CREATE A SUPERTAB INPUT FILE FOR CONTOUR PLOTS ? <CR=YES> >NO 
$ 


Figure 6.3- 1. Example of BUMPER Run (Continued) 
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BUMPER VER 4.0 
Last Update 5/25/87 

MAN-MADE ORBITAL DEBRIS ANALYSIS 
SPACECRAFT EXPOSURE TIME (YEARS) = 10.00 

OPERATING ALTITUDE (km) = 500.00 

GEOMETRY OUTPUT FILE = EXAMPLE. GEM 

RESPONSE OUTPUT FILE = EXAMPLE. RSP 


RANGE STARTING EID ENDING EID PNP % 

1 1 10000 96.11964 

TOTAL PRROBABILITY OF NO PENETRATION (%) = 

TOTAL EFFECTIVE AREA (SQ-M) = 152.60001 

$ 


Aeff sq-jn 
152.60001 

96.11964 


Figure 6.3-2. BUMPER Summary File 
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Year 

Altitude 

LogjQ (Altitude) 

1 


2.6232 

2 


2.6335 

3 

445 

2.6484 

4 

460 

2.6628 

5 

440 

2.6435 



Z= 13.2114 


Average = = 2.6423 

Altitude = io(2-<5423) ^433 3 ]^ 


Figure 6.3-3. Example of Orbital Altitude Calculation. 
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The next series of questions define the starting and ending 
element IDs for each range (SSCE) . The example in figure 6.3-2 is 
for the entire model; therefore, the range input is from 1 to 
10,000, which encompasses the entire range of element IDs. Figure 
3.4-1 shows an example of a summary output file with many SSCEs 
defined. 

The next two questions identify the appropriate data base files 
generated by GEOMETRY and RESPONSE. These files are in a binary 
format for speed of execution and compact storage. 

The last question asks whether the user wishes to create a 
SUPERTAB-compatible file containing the probability of penetration 
per element surface area data for each element. Figure 5.1-2 shows 
an example of this file. Figure 5.1-1 shows how this data may be 
displayed. 

6.4 CONTOUR 

Figure 6.4-1 shows the typical questions asked by the CONTOUR 
and gives the typical responses . 

The first question asks for the summary file. This file will 
contain the user-supplied input and the results of the analysis. 
With the default being "CONTOUR . SUM. " Figure 6.4-2 shows an example 
of this file , 

The second question asks for the analysis type, with the 
default being debris. 

The third question asks for the exposure time, with a default 
value of 10 years. 

The fourth question asks for the operating altitude. The 
recommended value is the same as outlined in section 6.3 for BUMPER. 
The default value is 500 km. 

The next question asks for the element ID range for the 
calculations. As opposed to BUMPER, CONTOUR allows only one range. 
No default values are given. 

The sixth question asks for the length units to be for input 
and output. The default is metric. 

The next question asks for property ID, with the default being 
1. Only one PID is allowed per analysis. 

Type of wall configuration is then input, with the default 
being double plate. If double plate is chosen, then the penetration 
function is requested, with the default being the original one. The 
recommended function for Space Station type structure is the 
regression. 

The next questions deal with the wall materials and minimum, 
maximum, and increment in thickness. No default is supplied. For 
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CONTOUR Version 2.0 
last update 6/5/87 


SUMMARY OUTPUT FILENAME (CR-CONTOUR. SUM) : 

ANALYSIS TYPE ? 

1- DEBRIS <CR> 

2 - METEOROIDS 
ANSWER 1 OR 2 : 

SPACECRAFT EXPOSURE TIME (YEARS) <CR-10.0> : 

OPERATING ALTITUDE ( 400-500 km ) <CR-500> : 411 

THE PROBABILITY OF NO PENETRATION WILL BE CALCULATED FOR A SPECIFIC RANGE 
OF ELEMENT IDS INPUT THE STARTING AND ENDING ELEMENT ID FOR EACH RANGE 

STARTING ELEMENT ID : 10000 

ENDING ELEMENT ID : 20000 

INPUT IN METRIC OR ENGLISH UNITS <CR>-METRIC ; ENGLISH 
PROPERTY ID - <CR-1> ; 

CONFIGURATION TYPE 

1- SINGLE PLATE 

2- DOUBLE PLATE <CR> 

ANSWER (1 or 2) : 

PENETRATION FUNCTION 

1 - ORIGINAL <CR> 

2- PEN4 

3 - REGRESS ION 
ANSWER (1-3) : 

SHIELD MATERIAL 

1- 2024-T4 

2- 2219-T87 

3- 6061-T6 

4- 7075-T6 

5- INCONEL 

SELECT MATERIAL NUMBER <CR>-1 ; 3 


Figure 6.4-1 Example of CONTOUR Run 


35 



D 180-30550-4 


MINIMUM SHIELD THICKNESS (IN) - : .01 

MAXIMUM SHIELD THICKNESS (IN) - : .1 

INCREMENT SHIELD THICKNESS (IN) - : .01 

VESSEL WALL MATERIAL 

1- 2024-T4 

2- 2219-T87 

3- 6061-T6 

4- 7075-T6 

5- INCONEL 

SELECT MATERIAL NUMBER <CR>-1 : 2 

MINIMUM VESSEL WALL THICKNESS (IN) - : .075 

MAXIMUM VESSEL WALL THICKNESS (IN) - : .25 

INCREMENT VESSEL WALL THICKNESS (IN) - ; .025 

THE NUMBER OF POTENTIAL CASES IS 80 
DO YOU WISH TO CONTINUE ? <CR-YES> ; 

SHIELD STAND-OFF (IN) - : 4.325 

INCLUDE 30 LAYERS OF MLI BETWEEN PLATES <CR>-Y : 

GEOMETRY OUTPUT FILENAME ? <CR-STATION . GEM> > 

1 0.0100 4.3250 0.0750 98.11780 

2 0.0200 4.3250 0.0750 98.78834 

3 0.0300 4.3250 0.0750 99.05371 


66 0.0900 4.3250 0.2500 99.83081 

67 0.1000 4.3250 0.2500 99.83659 


Figure 6.4-1 Example of CONTOUR Run (Continued) 
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CONTOUR Version 2.0 


last update 6/5/87 


MAN-MADE OEIBITAL DEBRIS ANALYSIS 

SPACECRAFT EXPOSURE TIME (YEARS) - 10.00 

OPERATING ALTITUDE (km) - 411.00 

STARTING ELEMENT ID - 10000 

ENDING ELEMENT ID - 20000 

PROPERTY ID - 1 

DOUBLE PLATE ANALYSIS 

ORGINAL PENETRATION FUNCTION 

SHIELD MATERIAL - 6061 -T6 

MINIMUM MAXIMUM AND INCREMENT SHIELD THICKNESS (IN) - 

0.0100 0.1000 0.0100 

VESSEL WALL MATERIAL - 2219-T87 

MINIMUM MAXIMUM AND INCREMENT VESSEL WALL THICKNESS (IN) - 
0.0750 0.2500 0.0250 

SHIELD STAND-OFF (IN) - 4.32500 

30 LAYERS OF MULTI-LAYER INSULATION INCLUDED 
GEOMETRY OUTPUT FILE - STATION. GEM 

1 0.0100 4.3250 0.0750 98.11780 

2 0.0200 4.3250 0.0750 98.78834 

3 0.0300 4.3250 0.0750 99.05371 


66 0.0900 4.3250 0.2500 

67 0.1000 4.3250 0.2500 


99.83081 

99.83651 


Figure 6.4-2 Sample CONTOUR Summary File 
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single plate structure, only the vessel wall questions are asked. 

Once all the wall parameters are input, the number of potential 
configurations is calculated and displayed. If the user agrees with 
the number the analysis continues by inputying ”YES" or a <CR>. If 
the number is incorrect, then the wall inputs may be repeated by 
inputing "NO." 

Next, for double plate structure, the shield standoff and 
whether or not to include MLI is input. 

The last question asks for the geometry data base filename. 
This was the file created by the GEOMETRY code. The default is 
"STATION. GEM. " 

As each configuration is analyzed the results are written to 
both the screen and the summary file. An example of the summary file 
is shown in figure 6.4-2. 

6.5 RPLOT 

RPLOT reads the binary response data base and produces a 
formatted user-defined output file containing the critical diameter 
data for each PID and impact velocity for 0- , 15- , 30- , 45-, and 60- 
deg impact angles. Figure 6.5-1 shows the typical questions asked by 
the program. As can be seen, the questions are limited to the input 
and output filenames. Figure 6.5-2 shows a typical RPLOT output 
file. 
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RUN RPLOT 

$$$$$$$$$$$$$$$$$$$$ 

RPLOT VER 1.1 

$$$$$$$$$$$$$$$$$$$$ 

RESPONSE OUTPUT FILENAME <CR-STATION . RSP> : STATION. RSP 
OUTPUT FILENAME <CR-RPLOT . DAT> : RPLOT.DAT 
OUTPUT LOCATED IN RPLOT.DAT 


Figure 6.5-1 Example of RPLOT Run 
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PID 

Vi 

0 

15 

30 

45 

60 

1 

0.2500 

1.0366 

1.0725 

1.1973 

1.4640 

2.0707 

1 

0.5000 

0,6506 

0.6731 

0.7515 

0.9195 

1.3009 

1 

0.7500 

0.5035 

0.5216 

0.5815 

0.7123 

1,0092 

1 

1.0000 

0.4236 

0.4388 

0.4891 

0.5990 

0.8474 


1 

16.2500 

0.6979 

0.7040 

0.7235 

0.7611 

0.8300 

1 

16.5000 

0.6953 

0.7013 

0.7207 

0.7582 

0.8268 

1 

16.7500 

0.6927 

0.6987 

0.7180 

0.7554 

0.8237 

1 

17.0000 

0.6901 

0.6961 

0.7154 

0,7526 

0.8207 

2 

0.2500 

0.9562 

0.9899 

1.1039 

1.3541 

1.9153 

2 

0.5000 

0.6166 

0.6382 

0.7131 

0.8716 

1.2327 

2 

0.7500 

0.4818 

0.4986 

0.5564 

0.6808 

0.9628 

2 

1.0000 

0.4062 

0.4204 

0.4690 

0.5738 

0.8113 



16.2500 

0.6243 

0.6297 

0.6471 

0.6807 

0.7424 

z 

16.5000 

0.6219 

0.6273 

0.6446 

0.6782 

0.7395 

2 

16.7500 

0.6195 

0.6249 

0.6422 

0.6756 

0.7368 

2 

17.0000 

0.6172 

0.6226 

0.6398 

0.6731 

0.7340 


Figure 6.5-2 Sample RPLOT Output File 
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7.0 APPLICATION OF THEORY 


7.1 HISTORY 

In the past determining the probability of no penetration (PNP) 
of spacecraft subject to meteoroid impact involved the Poisson's 
model as described in equation 1. 

PNP = (1) 


where PNP is the probability of no penetration, F is the flux of the 
design particle, A is the spacecraft area, and T is the exposure 
time . 


Previously, because spacecraft had small areas and short ex- 
posure times, the shielding required using this analysis was not 
significant. Also, the effect of man-made orbital debris was not 
previously considered. 

When using the preceding analysis for the design of the Space 
Station, the required shielding for man-made debris became 
excessive. Exact meanings of the terms in this equation were also 
confusing. What area is used, surface, projected, effective, or some 
factor of either? How is a design particle selected? 

This lead to the development of a more rigorous technique, 
outlined in reference 1, appendix G. The benefit of this more 
detailed analysis is that it accounts for the actual geometry of the 
spacecraft, its orientation, and all of the impact characteristics. 
This leads to more acceptable shielding requirements in terms of 
weight without compromising the required reliability of the 
spacecraft. 

7 . 2 DETERMINING THE PROBABILITY OF NO PENETRATION 

The analysis technique in reference 1, appendix G breaks the 
spacecraft into a series of flat plate elements much like a FEM. The 
threat environment (both debris and meteoroids) is also broken into 
finite cases, each for which a probability can be assigned. Each 
element is then evaluated for each threat. The PNP for a specific 
element is given by 


NT 

PNP = EXP [ - [A*T* F(Dc(vi, pj)) * cos (P,) ♦ p(ai, Oj) * Ij] ] (2) 

i -1 

where A is the elements surface area, T is the exposure time, NT is 
the number of threats , is the angle between the plates normal and 
the threat vector (the impact angle), is the probability of 

the threat occurring, F(Dc(Vj^ ) ) is the flux of the particle 
that penetrates the plate for the given impact velocity and impact 
angle, and Is is a indicator equal to 1 if the element is exposed to 
the threat and 0 if it is not. 


41 



D 180-30550-4 


To determine the PNP for a range of elements the following 
equation is used 

NELM NT 

PNP » EXP[- [T * * J^F(Dc(vij, py)) * cos (py) * p(aj, 0i) * y](3) 

j » 1 i =■ 1 

where NELM is the nvunber of elements. 


The preceding equations show that several items of data are 
required for each element. These data can be broken into logical 
groups. The first group consists the data specific to the threat 
and the spacecraft geometry. This consists of the threat data 
(impact velocity and the probability of the threat occurring) and 
the spacecraft interaction with the threat (is the element exposed 
and the cosine of the impact angle) . These data are calculated by 
the GEOMETRY computer program. 

The second group consists of data specific to the penetration 
resistance of the spacecraft wall (the diameter that just penetrates 
for specific impact conditions). These data are calculated by the 
computer program RESPONSE. 

This information is brought together along with the exposure 
time and element range of interest to perform the PNP calculation in 
the BUMPER computer program. 

Breaking the PNP calculation into several distinct parts has 
many advantages. The most expensive part of the analysis, in terms 
of computer runtime, is creating the threat and spacecraft geometry 
interaction data base. This data base need only be created once for 
each spacecraft geometry and orientation. Trade studies involving 
changes in the wall configuration or spacecraft exposure time then 
use this common data base. Breaking down the analysis also produces 
modular computer codes that are more adaptable to modifications and 
future additions . 

A detailed discussion of each of these computer codes follows: 
7.3 GEOMETRY VERSION 2.51 

GEOMETRY produces the geometry data base used by the BUMPER 
code. Specifically, it produces information about the threat (polar 
angles, impact velocity and probability), the finite elements in the 
model (element ID, property ID, surface area), and the interaction 
between the model and the threat (list of exposed elements and 
their impact angle cosines for each threat) . The information is 
stored in a user-defined binary file. 

The environment is modeled as a series of distinct threat cases 
as outlined in section 7 of reference 1. The spacecraft geometry is 
input through the use of a FEM. The model is limited to triangular 
elements whose nodes must be in the same coordinate system. In 
addition, the X-axis of the this coordinate system must be parallel 
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to the spacecraft's velocity vector and the Z-axis must be parallel 
to the Earth radius vector pointing away from the Earth. This is 
shown in figure 2.2-1. The model information must be stored in a 
file using the SUPERTAB Universal File Format. Other formats could 
be used but would require modification of the code. 

Figure 7.3-1 shows a simplified flow chart of the computer 
program. Each line item in the figure will be discussed in more 
detail in the following sections, but it should be noted that no 
attempt will be made to describe the code in complete detail. The 
code is well documented internally, and appendix B contains a 
complete listing. 

The code consists of two main areas, as shown in figure 7.3-1. 
The first consists of the global calculations, which need only be 
calculated once. The remainder of the code is specific to 
determining which elements are exposed to a given threat. This 
portion of the code can be further broken down into two areas, the 
first being the elimination of the elements that do not face the 
threat (back side elements) and the second being the elimination of 
elements shielded from the threat by other elements. 

7.3.1 Write Header 

This portion of the code writes the program header to the 
screen. It also reads in the analysis type (meteoroid or debris), 
the name of the file containing the FEM, and the name of the output 
file. 

7.3.2 Calculate the Threat Data 

The threat data for meteoroids or debris is calculated here. 
These data consist of the polar angles describing the threat 
direction, the impact velocity associated with the threat, and the 
probability of the threat occurring. The user specifies the number 
of threats to be evaluated. 

The debris threat is defined by JSC 20001. The code uses the 
relative velocity distribution and derives from it the threat angle 
distribution. The velocity distribution is contained in an external 
file DEB.VEL. The format for the velocity distribution file is 
contained in the code listing. The relationship between relative 
velocity and threat angle are shown graphically in figure 7.3-2. 

The meteoroid threat is defined by NASA SP-8013, For 
simplification, a constant inertial velocity of 20 km/s for all 
meteoroids is assumed. An isotropic threat is also assumed; 
therefore, all directions have equal likelihood of occurring. The 
spacecraft motion is accounted for by increasing or decreasing the 
probability appropriately (see sec. 2 of ref. 1). Earth shadowing is 
accounted for by ignoring the directions that lay below the horizon. 
For meteoroid analysis, a 500 km spacecraft altitude is assumed. For 
a more detailed discussion of the threat, see sections 2 and 7 of 
reference 1. 
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Figure7.3-1. GEOMETRY Flow Chart (Version 2.0) 
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Figure 7.3-2. Transformation of Velocity Distribution to Approach Angie Distribution 
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7.3.3 Read in the Model File 

The model file is read in and stored in global arrays for 
further use. One benefit of the code is the use of common blocks 
contained in external files, allowing easy modification of memory 
requirements . 

7.3.4 Calculate the Normal Vectors 

Each element's normal vector is calculated in the global 
coordinate system. The model builder must take care to ensure the 
correct orientation. The code uses nodes in order 1, 2, 3 and the 

right-hand rule to assign the normal vector direction. 

7.3.5 Calculate the Centroid Locations 

Each element's centroid is calculated in the global coordinate 
system by averaging the three nodal locations. 

7.3.6 Calculate the Surface Areas 

Each element's surface area is calculated and saved for 

output . 

7.3.7 Calculate the Radius of Sphere Enclosing the Element 

The radius of the sphere that just encloses each element is 
calculated and saved. This information is used later to evaluate the 
elements for shadowing. 

7.3.8 Eliminate Back Side Elements 

For each threat the elements having normal vectors pointing 
away from the threat are eliminated to prevent impacts on the 

element back faces. This is done by calculating the cosine of the 
angle between the element's normal vector and a vector pointing 
toward the threat direction. This is also the cosine of the impact 
angle and is saved for output later if the element is exposed. Those 
elements with negative cosines are termed "back side elements" and 
are removed from further consideration for that specific threat. 

7.3.9 Transform the Nodal Coordinates and Centroid Locations 

Those elements not eliminated as back side elements now have 
their nodal coordinates and centroid locations transformed into a 
coordinate system where the X-axis is parallel to the threat 

direction. The coordinates are then projected onto a plane 

orthogonal to the threat direction located at the centroid of the 
element. This is shown in figure 7.3-3. 

7.3.10 Sort on the Transformed X-Dimension 

The potentially exposed elements (those not eliminated as back 
side) are sorted in descending order on the distance from the origin 
to the elements centroid in the transformed X-dimension shown in 
figure 7.3-3. The quick-sort algorithm is used. 
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Rgure 7.3-3. Transformation of Nodes and Sorting of Elements 
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7.3.11 Sort on the Transformed Y-Dimension 

The potentially exposed elements are sorted in descending order 
on the distance from the origin to the element's centroid in the 
transformed Y-dimension shown in figure 7.3-3. The quick-sort 
algorithm again is used. 

7.3.12 Eliminate the Shadowed Elements 

An element is in the shadow of another element only if its 
centroid lies behind the shadowing element and within the projected 
boundaries of the shadowing element. This is done with the sorted 
lists of elements in the transformed X- and Y-dimensions . The 
potentially shadowed element must lie below the shadowing element 
in the sorted transformed X-list. Only chose elements whose 
centroids lay within a distance of the radius enclosing the 
shadowing element in the transformed Y-dimension are considered. 
This is done using the sorted transformed y list. If an element 
passes this test, a more accurate test is performed to determine if 
it lies within the projected boundaries. This portion of the code is 
complex and is best understood by following an example through the 
shadowing subroutine. This will not be done in this document, but 
the subroutine is well documented internally. 

7.3.13 Output List of Exposed Elements and Associated Impact Angles 

For each threat case a list of the exposed elements and their 
associated impact angle cosines is output. Additional outputs are 
the analysis type, the threat data, element surface area, element 
ID, and property ID. All this information is contained in binary 
format in the user- specif ied output file. Figure 7.3-4 shows the 
structure of this file. 

7.4 RESPONSE VERSION 2.0 

RESPONSE generates the critical diameter lookup tables for use 
by the BUMPER code. These tables list the critical diameter as a 
function of property ID (each finite element has been assigned one 
when the model was built), impact angle, and impact velocity. The 
information is saved in a user-defined file in binary format. The 
code is limited to aluminum structures, and specifically for double 
plate structures the shield thickness must be between 10% and 50% of 
the vessel wall thickness . 

A simplified flow chart of the code is show in figure 7.4-1. 
Each line item in the flow chart will be discussed in more detail in 
the following sections , but no attempt will be made to explain all 
the details of the code. The source code is internally documented, 
and a full listing of is contained in appendix C. 

The code can be broken into two parts for discussion purposes. 
The first part consists of reading in the user- inputs. These consist 
of the type of penetration function to be used and various 
dimensions and materials. The second part deals with calculating the 
critical diameters (the diameter that just penetrates) as a function 
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ITYPE, NT, NELM 


Theta, Alpha, , P(0,ot) 


NT 


EID, PID 


NELM 


Integer*! 


IT = Threat case 
ITYPE = Analysis type (1 - Deb, 2 - Met) 
NT = Number of threat cases 
NELM = Number of elements 
NEL = Element number 
NEXP = Number of exposed elements 
for a particular threat case 


Integer*4 

EED = Element ID 

PID = Element Property ID 


As 


NELM 


IT, NEXP 


NEL, COS(p) 


NEXP 


Real*4 


As = Surface Area, m 

COS (P) = Cosine of impact angle 
P (0,a) = Probability of threat occurring 
Vj = Impact velocity for specific 

threat, km/s 

Theta, = Polar angles describing threat 
Alpha 


NT 


Figure 7.3-4. Geometry Data Base File Structure. 
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Figure 7.4-1. RESPONSE Flow Chart (Main Program.) 
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of impact angle and impact velocity. The results are output in the 
user-defined file. 

7.4.1 Set Increments 

The increments for impact angle and impact velocity are 
explicitly set in the code. For meteoroid analysis the impact angle 
is varied in 5-deg increments and the impact velocity in 1 km/s 
increments with a maximum impact velocity of 70 km/s. For man-made 
debris the impact angle is also varied in 5-deg increments, while 
the impact velocity is varied in 0.25 km/s increments with a maximum 
impact velocity of 17 km/s. These values can be changed but would 
require modification of the source code. 

7.4.2 Read in User Inputs 

The user- specified inputs are read in at this point. For the 
initial property ID they consist of the analysis type, output file 
names, and the type of input units (English or metric). 
Additionally, the type of wall configuration (single or double 
plate) is read in. For double plate structures three optional 
penetration functions are available. The user also specifies the 
plate thicknesses, the shield standoff, and whether or not 
multilayer insulation is included. For all additional property IDs 
the default values are those input for the previous property ID. 

This portion of the code also reads in the material property 
file MAT . PRP . This file contains the physical property data for 
several common aluminum alloys. Additional aluminum alloys can be 
added. The format of the file is shown in figure 7.4-2. 

7.4.3 Set the Impact Angle 

The code sets the impact angle using the increments defined in 
section 7.4,1. Because data is limited for impact angles greater 
than 60 deg, the code considers angles greater than 60 deg to be 
equivalent to 60 deg. 

7.4.4 Set the Impact Velocity 

The impact velocity is set using the previously defined 
increments given in section 7.4.1. 

7.4.5 Single Plate Penetration Function 

The response of single plates subject to meteoroid or debris 
impact is modeled with the Schmidt-Holsapple crater volume equation, 
(sec. 4 and 7 of ref. 1). The effect of multilayer insulation is 
ignored. In addition spall is addressed by defining failure as 
hemispherical crater depths exceeding 70% of the plate thickness. A 
typical response curve is shown in figure 7.4-3. 

7.4.6 Double Plate Penetration Function 

As stated previously, the user has the option of three unique 
penetration functions for double plate structures. However, once one 
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Figure 7.4-3. Comparison of Penetration Resistance to Meteoroids of Single Wall and Double Wall Structures 
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has been chosen, all following property IDs in that analysis session 
will use the same penetration function. 

The first penetration function is titled the original. This is 
the function with which the majority of the contract work was 
performed. It consists of the ballistic portion of the. original 
PEN4, the Burch modified Bristow equations (ref. 1) for the 
fragmenting regime, and the Wilkinson equations for the 
high-velocity regime. A typical penetration function using this 
approach is shown in figure 7.4-4. It should be noted that the 
transition between the various equations is only a function of 
where the equations intercept and not based on physical data. 

The second penetration function is the updated version of PEN4 
and is discussed below in section 7,4.7. 

The third penetration function is titled regression. It uses 
the updated version of PEN4 for the ballistic regime, a regression 
equation for the fragmenting regime, and Wilkinson's method for the 
high-velocity regime, Thie regression equation represents the best 
curve fit of the test data developed under the contract. For a more 
detailed discussion, see ref. 1. The regression penetration function 
is recommended for use in Space Station type analysis. Figure 

7.4- 5 shows a typical penetration function using this technique. 

7.4.7 PEN4 

PEN4 is the Boeing-developed hypervelocity penetration computer 
program. Developed by the Boeing Aerospace hypervelocity impact 
group, it is intended to analyze impacts in the range of 0 to 8 
km/s. It has been updated to more closely predict the penetration 
resistance of aluminum double plate structure impacted by aluminum 
projectiles. A typical penetration function is shown in figure 

7.4- 6. A more detailed discussion of PEN4 is contained in ref. 1. It 
should be noted that the code does not address the effect of 
multilayer insulation, and the results for angles other then normal 
impact are considered to be suspect. 

7.4.8 Write Output 

The response lookup tables are written in binary format to the 
user-defined output file. Additionally, a summary list of 
information on each property ID case run is written to the 
user-defined summary file. Figure 7.4-7 shows the structure of this 
file . 


7.5 BUMPER VERSION 4.0 

BUMPER determines the PNP of a spacecraft subject to man-made 
debris or meteoroid impact. The code also determines the effective 
area of the spacecraft. The code can perform these calculations for 
all elements in the spacecraft model together or for specific ranges 
of element IDs. Figure 7.5-1 shows a simplified flow chart of the 
computer code. Each line item will be discussed in further detail in 
the following sections, but no attempt will be made here to explain 
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Figure 7.4-4. Penetration Function With Burch Equations 
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ITYPE, IC 


NANG, AINCR 


NVEL,VINCR 


Integer*2 

IC = Number of wall configurations 

ITYPE = Analysis type 

NANG = Number of impact angles 

NVEL = Number of impact velocities 



NVEL 


NANG 


Real*4 

AINCR = Impact angle increment, radians 
Dcrit = Critical projectile diameter, cm 
VINCR = Impact velocity increment, km/s 



Figure 7.4-7. Response Data Base File Structure. 
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Figure 7.5-1. BUMPER Flow Chart. 
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the code in complete detail. The code is well documented internally, 
and a complete listing is contained in appendix D. 

As shown in figure 7.5-1, the code can be broken into five 
areas for discussion purposes. The first consists of reading in the 
geometry and response data bases. Next, the finite threat cases are 
looped through, evaluating only the exposed elements for each one. 
This consists of determining the flux of the critical projectile and 
storing its sum in a global array. This global array is then 
multiplied by the element surface area array. The array is then 
summed up by element ID ranges. Finally, the PNP for each range is 
calculated. 

7.5.1 Read User Inputs 

The user inputs consist of the analysis to be performed 
(meteoroid or debris), the summary filename, the spacecraft exposure 
time, the spacecraft operating altitude, and the element ID ranges. 
This portion of the code also writes the screen header. All user 
input is output to the summary file. 

7.5.2 Read in the Geometry Data Base 

The geometry data base created by the GEOMETRY code and stored 
in a binary file is read in. The data base contains the information 
on the threat, each element's element identification number (EID) 
and PID, the element's surface area, and a list of the exposed 

elements along with their impact angle cosine for each threat. 

7.5.3 Read in the Response Data Base 

The wall penetration resistance data base created by the 

RESPONSE code and stored in a binary file is read. The data base 
contains the critical diameter lookup tables for each property ID as 
a function of impact velocity and impact angle. 

7.5.4 Set the Threat Data 

For each threat the probability of the threat occurring and the 
impact velocity is recovered from the geometry data base. 

7.5.5 Set the Impact Conditions for Element Nel 

For each threat there is a list of exposed elements in the 

geometry data base. Nel is a specific element exposed to a specific 
threat. The code loops through all exposed elements for all threats. 
The impact conditions consist of the impact angle cosine and the 
property ID for the element as well as the previously recovered 
impact veleocity. 


60 



D 180-30550-4 

7.5.6 Calculate the Critical Diameter 


The critical diameter for element Nel for the specific threat 
can now be calculated. The response data base is used through linear 
interpretation to determine the critical diameter. Using a lookup 
table approach as opposed to calculating the diameter directly 
allows a faster, more efficient code. 

7.5.7 Calculate the Flux of the Critical Diameter 

The flux of the critical diameter is calculated using 
NASA-specified flux equations. The meteoroid flux equations are 
found in JSC 30000. Gravity focusing of meteoroids is accounted for. 
Earth shadowing has already been accounted for in the GEOMETRY code. 
The man-made debris flux equations are found in JSC 20001. The log 
of the debris flux is assumed to vary linearly between 400 and 500 
kra . The flux given by JSC 20001 is multiplied by 4.0 to account for 
the difference in the Boeing and NASA definition of flux. No 
corrections are needed for the meteoroid flux. For a more detailed 
discussion, see appendix G of ref. 1. 

7.5.8 HISTORY(NEL) - HISTORY(NEL) + F(D^(v^,^^)) * COS(^i) * 

The product of the flux, the threat probability, and the cosine 
of the impact angle for each element is summed in the History array 
for all elements. When all threats have been evaluated the sum in 
the History array for each element represents the summation part of 
equation 1. 


7.5.9 ARHIS(NEL) - ARHIS(NEL) + * p(a^,Q^) 

The product of the threat probability and the cosine of the 
impact angle for each element is summed in the Arhis array for all 
threats. When all threats have been evaluated, this represents the 
effective area divided by the surface area for element Nel. 

7.5.10 HISTORY(NEL) - HISTORY(NEL) ★ Area (NEL) , 

ARHIS (NEL) - ARHIS (NEL) * Area(NEL) 

Each element in the History and Arhis arrays is multiplied by 
its surface area. Each term in the History array now represents the 
average number of penetrating particles per unit time for a specific 
element. Each term in the Arhis array represents the effective area 
of a specific element. 

7.5.11 Sum up the History and the Arhis Arrays by Ranges 

The History array is summed up for the various user defined 
ranges. This summation represents the average number of penetrating 
particles per unit time for a specific range of elements 

(representing an SSCE, for example) . The summation of the Arhis 
array represents the effective area for each range of elements . 

7.5.12 Calculate PNP for Each Range 

Given the spacecraft exposure time and the average number of 
penetrating particles per unit time for each range, the PNP for 
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each range can be calculated. A Poisson model, as shown in equation 
2, is used, 

7.5.13 Write PNP and Effective Area Out 

The PNP and effective area for each range of element IDs as 
well as the total PNP and effective area, are written out to both 
the screen and the summary file . 

7.5.14 SUPERTAB Output File 

A SUPERTAB Universal File containing the probability of 
penetration per surface area for each element in the model can be 
produced. This allows for penetration contour plots on the model to 
be made . 


7.6 CONTOUR VERSION 2.0 

CONTOUR produces a data base that can be used with 

user- supplied software to produce design contour plots of PNP versus 
shield and vessel wall thickness for given shield standoff, element 
ID range, and property ID. The code is a modified version of the 
BUMPER code. The main modification being the incorporation of the 
RESPONSE code as a subroutine. Figure 7.6-1 shows a simplified flow 
chart of the code. Those items that are different from the previous 
discussion of the BUMPER code will be discussed in more detail in 
the following sections. The code is well documented internally, and 
a complete listing is contained in appendix E. 

7.6.1 Read in User Inputs 

The user inputs are the same as those in the BUMPER and 
RESPONSE codes. Additionally, the minimum, maximum, and increment 
are input for the shield and vessel wall thickness. The code is 
limited to one range of element IDs and one property ID. If, during 
the analysis, elements in the specified range are encountered with 
the incorrect property ID, then the code skips the element. A 
warning message is written to the summary file indicating how many 
elements with the incorrect property ID were encountered. 

7.6.2 Set Vessel Wall Thickness 

The vessel wall thickness (Tb) is set using the user-defined 
minimum, maximum, and increment. 

7.6.3 Set Shield Thickness 

The shield thickness (Ts) is set using the user-defined 
minimum, maximum, and increment. 

7.6.4 Ratio OK 

The ratio of the shield thickness to the combined shield and 
vessel wall thickness is calculated. This ratio is limited to a 
range of 0.10 to 0.50. This is due to limitations in the various 
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Figure 7.6-1, CONTOUR Flow Chart. 
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penetration functions. If the ratio is outside of the range, then 
this combination is skipped and the next one is calculated. 

7.6.5 Build Response Array 

The response array (RTABLE) is built using the RESPONSE code as 
a subroutine in the CONTOUR code. The only modification to the 
RESPONSE code is the elimination of the input and output 
subroutines . 

7.6.6 Inside Range 

If the element is not within the specified element ID range or 
if the element is within the range but has a property ID other than 
the one specified, then the element is skipped and the next element 
evaluated. 

7.6.7 Sum History by Specific Range and PID 

For the specific range of element IDs, the History array is 
summed up. This represents the total average number of penetrating 
particles per unit time for the specified range. 

7.6.8 Calculate the PNP for the Specific Range and PID 

The PNP for the range is calculated using the user specified 
exposure time. 

7.6.9 Write Out Ts . S, Tb, PNP 

For each shield and vessel wall combination (within the 
specified bounds stated in sec. 7.6.4), the shield thickness (Ts), 
shield standoff (S) , vessel wall thickness (Tb) , and associated PNP 
is written out to the screen and the summary file. 
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APPENDIX A 


SUPERTAB Universal File Format 


Copyright 1983, Structural Dynamics Research Corporation 


PRECEDINQ PAGE BLANK NOT FILWHO 
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-1 

2 

SDRC I -DBAS 2.5B: M 

ME 2.54000E-02 
-1 
-1 
18 


6 

0 

0 

15 

1 



REF 







-l.OOOOOE+02 

O.OOOOOE+00 

-l.OOOOOE+02 - 

l.OOOOOE+02 - 

•5.00000E+00 - 

1.0 

-l.OOOOOE+02 

-5.00000E+00 

0 . OOOOOE+00 




-1 







-1 







15 







1 

6 

6 

11 

4 . 36746E+02 

7.45440E+00 

6. 

2 

6 

6 

11 

4.36746E+02 

6.43840E+00 

5. 

2769 

6 

6 

11 

3.96919E+02 

6.43840E+00 

6. 

2770 

6 

6 

11 

3.96919E+02 

6.91820E+00 

6. 

2771 

6 

6 

11 

3.96919E+02 

6.43840E+00 

5 . 

-1 







-1 
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1 

2 

91 

1 

1 

7 

3 

266 

47 

48 





2 

2 

91 

1 

1 

7 

3 

52 

266 

267 

• 

• 

• 


5371 

2 

91 

1 

1 

7 

3 

2755 

2770 

2767 





-1 








Figure A-1. SUPERTAB Example — Universal File Format 
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-1 
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SUPERTAB 8.0 - MS - 0729830004 

0 1 13 8 

O.lOOOOOE+01 O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 O.lOOOOOE-34 0.10 
O.lOOOOOE-34 O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 O.lOOOOOE-34 0.10 
O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 0.00 
0 . OOOOOOE+00 

0 5 13 8 

O.lOOOOOE+01 O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 O.lOOOOOE-34 0.10 
O.lOOOOOE-34 O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 O.lOOOOOE-34 0.10 
O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 O.OOOOOOE+00 0 . OOOOOOE+00 0.00 
O.OOOOOOE+00 

1 1 1 11 

0.206800E+12 0.290000E+00 0.782000E+03 O.lOOOOOE-34 0.361000E-05 0.10 
O.lOOOOOE-34 O.OOOOOOE+00 O.lOOOOOE-34 O.OOOOOOE+00 0.360000E+05 
-1 
-1 


74 

SUPERTAB 8.0 - MS - 0729830004 


1 

91 

1 

1 

1 

2 

91 

2 

1 

1 

5370 

91 

5370 

1 

1 

5371 

91 

5371 

1 

1 


-1 


Figure A- 1. SUPERTAB Example — Universal File Format (Continued) 
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DATASET TYPE: 2 

DESCRIPTION; PROGRAM HEADER 

SUPERTAB, OUTPUT DISPLAY. ETC. 

RECORD 1: FORMAT (20A1) 

FIELD 1 — 20 CHARACTER PROGRAM VERSION IDENTIFIER. 

RECORD 2; FORMAT(80A1) 

FIELD 1 — 80 CHARACTER MODEL IDENTIFICATION. 

RECORDS: FORMAT(2A1,E13.5) 

FIELD 1 — MODEL UNITS OF DATA 

IN =INCHES 
MM = MILLIMETERS 


ME = METERS 

UD = USER DEFINED SCALE 

FIELD 2 — ^ MODEL UNITS CONVERSION FACTOR 

(MODEL UNITS PER INCH) 


EXAMPLE: 

-1 

2 

SDRC/SUPERTAB X.Y.Z 
EXAMPLE OF PROGRAM HEADER DATASET 
IN 1.00000E + 00 
-1 


DATASET TYPE; 15 
DESCRIPTION; NODES 


RECORD 1: FORMAT(4I10,3E13.5) 

FIELD 1 

— NODE TAG (NUMBER) 

FIELD 2 

— DEFINITION COORDINATE SYSTEM 

FIELD 3 

— DISPLACEMENT COORDINATE SYSTEM 

FIELD 4 

— COLOR 

FIELDS 5-7 

— 3-DIMENSIONAL COORDINATES OF NODE IN THE DEFINITION 
SYSTEM 


RECORD 1 

IS REPEATED 

FOR EACH 

NODE IN THE MODEL. 


EXAMPLE: 








-1 








15 

1 

0 

0 

8 

0 .00000E4-00 

O.OOOOOE-hOO 

O.OOOOOE-t-00 


2 

0 

0 

8 

5.00000E-01 

0 .OOOOOE-hOO 

-5 .OOOOOE-02 

100 

0 

0 

8 

1 .20000E + 01 

1 .20000E-H01 

-4. 50000E-(-00 


-1 
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DATASET TYPE; 
DESCRIPTION: 
RECORD 1: 


RECORD 2: 


18 

COORDINATE SYSTEMS 


FORMAT(5I10) 
FIELD 1 
FIELD 2 
FIELD 3 
FIELD 4 
FIELD 5 
FORMAT(20A1) 
FIELD 1 


COORDINATE SYSTEM TAG (NUMBER) 

COORDINATE SYSTEM TYPE 
REFERENCE COORDINATE SYSTEM TAG 
COLOR 

METHOD OF DEFINITION 

20 CHARACTER COORDINATE SYSTEM IDENTIFICAION FOR 
METHOD OF DEFINITION = 1 


RECORD 3; FORMAT(6E13.5) 

TOTAL OF 9 COORDINATE SYSTEM DEFINITION PARAMETERS. 

FIELDS 1-3 - ORIGIN OF NEW SYSTEM SPECIFIED IN REFERENCE SYSTEM 

FIELDS 4-6 — POINT ON -I- X AXIS OF THE NEW SYSTEM SPECIFIED IN 

REFERENCE SYSTEM 

FIELDS 7-9 — POINT ON H-XZ PLANE OF THE NEW SYSTEM SPECIFIED IN 

REFERENCE SYSTEM 


REPEAT RECORDS 1 THRU 3 FOR ALL COORDINATE SYSTEMS. 
EXAMPLE: 

-1 


18 


SYSl 

3 1 

0 

8 

1 

O.OOOOOE+00 
6 .OOOOOE+00 

-1,OOOOOE+O0 

4.50000E+00 

7.00000E+00 

3.00000E+00 

-5.00000E+00 

O.OOOOOE + 00 3.0OOOE-POO 


-1 
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DATASET TYPE: 

56 


DESCRIPTION: 

ANALYSIS DATA ON ELEMENTS 

RECORD 1: 

FORMAT (80A1) 



FIELD 1 - 

ID LINE 1 

RECORD 2; 

FORMAT (80A1) 



FIELD 1 — 

ID LINE 2 

RECORD 3: 

FORMAT (80A1) 



FIELD 1 — 

ID LINE 3 

RECORD 4: 

FORMAT (80A1) 



FIELD 1 — 

ID LINE 4 

RECORD 5: 

FORMAT (80A1) 



FIELD 1 - 

ID LINE 5 

RECORD 6: 

FORMAT (6110) 



DATA DEFINITION PARAMETERS 


FIELD 1 


FIELD 2 


FIELD 3 


FIELD 4 


FIELD 5 


FIELD 6 


MODEL TYPE 
0: UNKNOWN 
1: STRUCTURAL 
2: HEAT TRANSFER 
3; FLUID FLOW 
ANALYSIS TYPE 
0: UNKNOWN 
1; STATIC 
2: NORMAL MODE 
3; COMPLEX EIGENVALUE 
4: TRANSIENT 
5; FREQUENCY RESPONSE 
6: BUCKLING 
DATA CHARACTERISTIC 
0; UNKNOWN 
1: SCALAR 

2- 3 DOF GLOBAL TRANSLATION VECTOR 
3: 6 DOF GLOBAL TRANSLATION & ROTATION VECTOR 
4: SYMMETRIC GLOBAL TENSOR 
5: GENERAL GLOBAL TENSOR 
SPECIFIC DATA TYPE 
0: UNKNOWN 
1: UNKNOWN 
2: STRESS 
3: STRAIN 

4; ELEMENTAL FORCE 
5; TEMPERATURE 
6; HEAT FLUX 
7: STRAIN ENERGY 
8: DISPLACEMENT 
9: REACTION FORCE 
10: KINETIC ENERGY 
11: VELOCITY 
12: ACCELERATION 
DATA TYPE 
2: REAL 
5- COMPLEX 

NUMBER OF DATA VALUES FOR EACH POSITION ON THE ELEMENT 
(NDV) 


RECORDS 7 AND 8 ARE ANALYSIS TYPE SPECIFIC 


GENERAL FORM 
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record 7; 


RECORD 8: 


FORMAT (8110) 
FIELD 1 — 

FIELD 2 — 

FIELDS 3-N — 

FORMAT (6E13.5) 
FIELDS 1-N — 


NUMBER OF INTEGER DATA VALUES 
1 < OR = NINT <x OR = 10 
NUMBER OF REAL DATA VALUES 
1 < OR = NRVAL< OR = 12 
TYPE SPECIFIC INTEGER PARAMETERS 

TYPE SPECIFIC REAL PARAMETERS 


FOR ANALYSIS TYPE = 0, UNKNOWN 


RECORD 7: 


FIELD 1 

— 1 


FIELD 2 

— 1 


FIELD 3 

— ID NUMBER 

RECORD 8: 


FIELD 1 

— 0.0 


FOR ANALYSIS TYPE = 1, STATIC 


RECORD 7; 

FIELD 1 — 1 

FIELD 2 - 1 

FIELD 3 — LOAD CASE NUMBER 

RECORD 8: 

FIELD 4 — 0.0 

FOR ANALYSIS TYPE = 2, NORMAL MODE 


RECORD 7: 


RECORD 8; 


FIELD 1 

— 2 

FIELD 2 

— 3 

FIELD 3 

— LOAD CASE NUMBER 

FIELD 4 

— MODE NUMBER 

FIELD 1 

— FREQUENCY (HERTZ) 

FIELD 2 

— MODAL MASS 

FIELD 3 

— MODAL DAMPING 


FOR ANALYSIS TYPE = 3, COMPLEX EIGENVALUE 


RECORD 7: 


FIELD 1 

— 

2 


FIELD 2 

— 

6 


FIELD 3 

— 

LOAD CASE NUMBER 


FIELD 4 

— 

MODE NUMBER 

RECORD 8: 


FIELD 1 

— 

REAL PART EIGENVALUE 


FIELD 2 

— 

IMAGINARY PART EIGENVALUE 


FIELD 3 



REAL PART OF MODAL A 


FIELD 4 

— 

IMAGINARY PART OF MODAL A 


FIELD 5 



REAL PART OF MODAL 8 


FIELD 6 

— 

IMAGINARY PART OF MODAL B 

FOR ANALYSIS TYPE = 4, TRANSIENT 

RECORD 7: 


FIELD 1 

— 

2 


FIELD 2 

— 

1 


FIELD 3 

— 

LOAD CASE NUMBER 


FIELD 4 

— 

TIME STEP NUMBER 

RECORD 8: 


FIELD 1 

— 

TIME (SECONDS) 
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FOR ANALYSIS TYPE = 5, 

FREQUENCY RESPONSE 

RECORD 7; 

FIELD 1 

— 2 


FIELD 2 

— 1 


FIELD 3 

— LOAD CASE NUMBER 


FIELD 4 

— FREQUENCY STEP NUMBER 

RECORD 8; 

FIELD 1 

— FREQUENCY (HERTZ) 


FOR ANALYSIS TYPE = 6, BUCKLING 


RECORD 7: 


RECORD 8: 
RECORD 9: 


RECORD 10: 


FIELD 1 — 1 

FIELD 2 — 1 

FIELD 3 — LOAD CASE NUMBER 


FIELD 1 — 

FORMAT (2110) 
FIELD 1 — 

FIELD 2 — 

FORMAT(6E13.5) 
FIELDS 1-N — 


EIGENVALUE 
ELEMENT NUMBER 

NUMBER OF DATA VALUES FOR THIS ELEMENT (NVAL) 
DATA ON ELEMENT (NVAL REAL OR COMPLEX VALUES) 


RECORDS 9 AND 10 ARE REPEATED FOR ALL ELEMENTS. 


NOTES: 


1. D LINES MAY NOT BE BLANK. IF NO INFORMATION IS “NONE” MUST APPEAR IN COL- 
UMNS 1-4. 

2. FOR COMPLEX DATA THERE WILL BE 2*NVAL DATA ITEMS. THE ORDER IS REAL PART 
FOR VALUE 1, IMAGINARY PART FOR VALUE 1, REAL PART FOR VALUE 2, IMAGINARY 
PART FOR VALUE 2, ETC. 

3. THE ORDER OF VALUES FOR VARIOUS DATA CHARACTERISTICS IS: 

3 DOF GLOBAL VECTOR: X, Y, Z 
6 DOF GLOBAL VECTOR: X, Y, Z, RX. RY. RZ 
SYMMETRIC GLOBAL TENSOR: SXX. SXY, SYY, SXZ, SYZ, SZZ 
GENERAL GLOBAL TENSOR: SXX, SYX, SZX, SXY, SYY, SZY, SXZ, SYZ, SZZ 

4. ID LINE 1 ALWAYS APPEARS ON PLOTS IN OUTPUT DISPLAY. 

5. IF SPECIFIC DATA TYPE IS “UNKNOWN," ID LINE 2 IS DISPLAYED AS DATA TYPE IN OUT- 
PUT DISPLAY. 

6. TYPICAL FORTRAN I/O STATEMENTS FOR THE DATA SECTIONS ARE; 

READ (LUN, 1000) NUM, NVAL 
WRITE 

1000 FORMAT (2I10) 

READ (LUN, 1010) (VAL(I),I = 1.NVAL) 

WRITE 

1010 FORMAT (6E13.5) 

WHERE; NUM IS ELEMENT NUMBER 

NVAL IS NUMBER OF REAL OR COMPLEX DATA 
VALUES FOR THIS ELEMENT (MAX = 90) 

VAL IS REAL OR COMPLEX DATA ARRAY 

7. DATA CHARACTERISTIC VALUES IMPLY THE FOLLOWING VALUES OF NDV: 


8 . 


SCALAR: 1 

3 DOF GLOBAL VECTOR: 3 
6 DOF GLOBAL VECTOR: 6 
SYMMETRIC GLOBAL TENSOR: 6 
GENERAL GLOBAL TENSOR; 9 


DATA ON 2D TYPE ELEMENTS MAY HAVE MULTIPLE VALUES THROUGH THE ELEMENT 
rniCKNESS. IN THESE CASES, NVAL = NOVNPOS WHERE NPOS IS NUMBER OF POSI- 
riONS THROUGH ELEMENT. NPOS IS ALWAYS 1 FOR SOLIDS. THE ORDER OF THE DATA 
S NDV VALUES FOR POSITION 1, NDV VALUES FOR POSITION 2, ETC. THE ORDER OF THE 
40DES DEFINES AN OUTWARD NORMAL WHICH SPECIFIES THE ORDER FROM POSITION 
I TO NPOS. 


A-7 



D 180-30550-4 


9. ANY RECORD WITH ALL 0.0’S DATA ENTRIES NEED NOT (BUT MAY) APPEAR. 

10. A DIRECT RESULT OF 9 IS THAT IF NO RECORD 9 10 APPEARS, ALL DATA FOR THE 

DATA SET IS 0.0. 

11. WHEN NEW ANALYSIS TYPES ARE ADDED, RECORD 7 FIELDS 1 AND 2 ARE ALWAYS < OR 
= 1 WITH DUMMY INTERGER AND REAL ZERO DATA IF DATA IS NOT REQUIRED. IF COM- 
PLEX DATA IS NEEDED, IT IS TREATED AS TWO REAL NUMBERS, REAL PART FOLLOWED 
BY IMAGINARY POINT. 

12. DATALOADERS USE THE FOLLOWING ID LINE CONVENTION; 

1. (80A1) MODEL IDENTIFICATION 

2. (80A1) RUN IDENTIFICATION 

3. (80A1) RUN DATE/riME 

4. (80A1) LOAD CASE NAME 

FOR STATIC; 

5. (17H LOAD CASE NUMBER;, 110) 

FOR NORMAL MODE; 

5. (10H MODE SAME, 110, 10H FREQUENCY, E13.5) 

13. MAXIMUM VALUE FOR NDV IS 9. 

MAXIMUM VALUE FOR NVAL IS 90. 

14. TYPICAL FORTRAN I/O STATEMENTS FOR PROCESSING RECORDS 7 AND 8. 

READ (LUN, 1000) NINT, NRVAL, (IPAR(I),I = 1.NINT) 

1000 FORMAT (8110) 

READ (LUN, 1010) (NRVAL(I),I = 1, NRVAL) 

1010 FORMAT (6E13.5) 
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DATASET TYPE: 
DESCRIPTION: 
RECORD 1: 


RECORD 2: 


71 

CONNECTIVITY 
FORMAT(7I10) 
FIELD 1 
FIELD 2 
FIELD 3 
FIELD 4 

FIELD 5 - 

FIELD 6 ~ 

FIELD 7 
FORMAT (8110) 
FIELDS 1-N - 


ELEMENT TAG (NUMBER) 

CONNECTIVITY NUMBER 
TYPE REFERENCE (NUMBER) 

PROPERTY REFERENCE (NUMBER) 

MATERIAL REFERENCE (NUMBER) 

COLOR 

NUMBER OF NODES ON ELEMENT 

NODE NUMBERS OF NODES DEFINING ELEMENT 


THE ENTIRE SET OF RECORDS IS REPEATED FOR EACH ELEMENT OF THE MODEL 

EXAMPLE: 

-1 

71 


1 

19 

1 

1 

1 

8 

8 


11 

12 

13 

16 

21 

20 

19 

15 

2 

12 

2 

2 

1 

8 

16 


31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

124 

19 

1 

1 

1 

8 

8 


9 

10 

11 

15 

19 

18 

17 

14 


-1 
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DATASET TYPE; 
DESCRIPTION: 
RECORD 1: 

RECORD 2: 


RECORD 3: 


RECORD 4: 


73 

ELEMENT PROPERTY VALUE ENTRIES 
FORMAT(40A2) 

FIELD 1 — PARENT FINITE ELEMENT SET SERIAL NUMBER 

FORMAT (4I10) 

FIELD 1 - ENTRY TYPE 

0 — PHYSICAL 

1 - ISOTROPIC MATERIAL 

2 - ORTHOTROPIC MATERIAL 

3 - ANISOTROPIC MATERIAL 

FIELD 2 — ENTRY ID 

FIELD 3 — PHYSICAL OR MATERIAL DESCRIPTOR ID 

FIELD 4 — # OF PROPERTIES IN VALUE ENTRY 

FORMAT (6E13.6) 

FIELD Kn<6 — VALUES AS NEEDED 
FORMAT(I10,35A2) 

FIELD 1 - 


SYMBOL COUNT 

FIRST RECORD OF VALUE — TOTAL SYMBOLS IN VALUE 
EACH SUCCESSIVE RECORD — TOTAL FOR THAT RECORD 


ONE RECORD TYPE 1 APPEARS PER DATASET. ONE RECORD TYPE 2 
APPEARS FOR EACH VALUE ENTRY IN THE DATASET. AS MANY 
RECORD TYPE 3 AND RECORD TYPE 4 APPEAR PER RECORD TYPE 2 
AS IS NECESSARY TO TRANSFER THE PROPERTY VALUES IN EACH 
ENTRY. 


FINITE ELEMENT PHYSICAL PROPERTIES' 

PROPERTY DESCRIPTOR ELEMENT FAMILY AND INDEXES 

1 NULL PROPERTY TABLE 

NUMBER OF PROPERTIES = 0 NUMBER OF VALUES = 0 

2 LINEAR BEAM 

NUMBER OF PROPERTIES = 37 NUMBER OF VALUES = 57 

Property Indices 2,3,4,7,26,5,6,8,9,10,11,12,19,13,20,14,15,16,17, 
18,51,58,94,59,95,60,96,25,27,83,84,85,86,87,91,92.93 

3 NODE TO NODE SPRING 

NUMBER OF PROPERTIES = 8 NUMBER OF VALUES = 15 

Property Indices 22,21,63,64,53,54,55,90 

4 SOLID 

NUMBER OF PROPERTIES = 3 NUMBER OF VALUES = 5 

Property Indices 49,88,89 

5 ROD 

NUMBER OF PR0PERTIES = 4 NUMBER OF VALUES = 4 

Property Indices 2,7,24,25 

6 TAPERED BEAM 

NUMBER OF PROPERTIES = 65 NUMBER OF VALUES = 93 

Property Indices 

28,30.32,97,99.38.34,65, 1 07,67, 109,68, 1 1 1 ,69, 1 1 3 

70,115,75,40,79,77,101,103,105,44 

1 0, 1 1 , 1 2, 1 9, 1 3 ,20, 1 4. 1 5. 1 6, 1 7,36,37,42,43,81 

29,31,33,98,100,39,35,66,108,71,1 10,72,1 12,73,1 14,74 
116,76,41,80,78,102,104,106,45 

7 CURVED BEAM 

NUMBER OF PROPERTIES = 1C NUMBER OF VALUES = 11 

Property Indices 2,3,4,7,5,6,18,25,8,9 

8 PIPE 

NUMBER OF PROPERTIES = 5 NUMBER OF VALUES = 5 

Property Indices 191,192,193,194,25 

9 PHYSICAL PROPERTIES FOR DATA FORMATTER 

NUMBER OF PROPERTIES = 49 NUMBER OF VALUES = 48 

Property Indices 201,202.203.204,205,206,207,209,209,210,211,212,213 
21 4,21 5.21 6,21 7,21 8,21 9,220,221 ,222,223.224.225.226 
227,228,229,230,23 1 ,232,233,234,235,236,237,238,239 
240,241,242,243,244,245,246,247,248,249 
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10 PLANE STRESS 

NUMBER OF PROPERTIES = 2 NUMBER OF VALUES = 7 

Property Indices 1,49 

PROPERTY DESCRIPTOR ELEMENT FAMILY AND PROPERTY NUMBERS 


11 

PLANE STRAIN 



NUMBER OF PROPERTIES = 2 
Property Indices 1,49 

NUMBER OF VALUES = 7 

12 

AXISYMMETRIC 



NUMBER OF PROPERTIES = 1 
Property Indices 49 

NUMBER OF VALUES = 3 

13 

THIN SHELL 



NUMBER OF PROPERTIES = 7 
Property Indices 1,46,47,48,49,52,82 

NUMBER OF VALUES = 11 

14 

FLAT PLATE 



NUMBER OF PROPERTIES = 3 
Property Indices 1,46,49 

NUMBER OF VALUES = 6 

15 

LUMPED MASS 



NUMBER OF PROPERTIES = 6 
Property Indices 23,56,61,62,57,54 

NUMBER OF VALUES = 13 

16 

THICK SHELL 



NUMBER OF PROPERTIES = 1 
Property Indices 49 

NUMBER OF VALUES = 3 

17 

NODE TO GROUND SPRING 



NUMBER OF PROPERTIES = 5 
Property Indices 22,21,53,54,90 

NUMBER OF VALUES = 12 

18 

NODE TO NODE DAMPER 



NUMBER OF PROPERTIES = 3 
Property Indices 53,54,55 

NUMBER OF VALUES = 3 

19 

NODE TO GROUND DAMPER 



NUMBER OF PROPERTIES = 2 
Property Indices 53,54 

NUMBER OF VALUES = 2 


FINITE ELEMENT PHYSICAL PROPERTIES 
MENU 

INDEX PICK DESCRIPTION 

1 TK THICKNESS (CAN INPUT UP TO 4 VALUES ANY 0.0 VALUE 

DEFAULTS TO PREVIOUS VALUE) 

DEFAULT VALUES 1.0, 0.0, 0.0, 0.0 

2 AR AREA - CROSS SECTION AREA 

3 lYY MOMENT OF INERTIA ABOUT Y AXES 

4 IZZ MOMENT OF INERTIA ABOUT Z AXES 

5 SRY SHEAR AREA RATIO IN THE Y DIRECTION (SUPERB) 

6 SRZ SHEAR AREA RATIO IN THE Z DIRECTION (SUPERB) 

7 TC TORSIONAL CONSTANT 

8 ECY ECCENTRICITY Y — Y DISTANCE FROM SHEAR CENTER TO CENTROID 

(SUPERB) 

9 ECZ ECCENTRICITY Z — Z DISTANCE FROM SHEAR CENTER TO CENTROID 

(SUPERB) 

10 OC ORIENTATION CODE 

11 OS ORIENTATION SPECIFICATION 

12 RFE FORE END RELEASE FUNCTION (SUPERB.NASTRAN) 

13 RAE AFT END RELEASE FUNCTION (SUPERB.NASTRAN) 

14 OFCF OFFSET CODE FORE END (SUPERB) 

15 OFCA OFFSET CODE AFT END (SUPERB) 

16 OFVF OFFSET VECTOR FORE END 

17 OFVA OFFSET VECTOR AFT END 

18 SRC STRESS RECOVERY C (2 VALUES) (SUPERB,NASTRAN) 
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19 

20 
21 

22 . 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 


SFF SPRING FUNCTION FORE END (6 VALUES) (SUPERB) 

SFA SPRING FUNCTION AFT END (6 VALUES) (SUPERB) 

KIND SPRING COEFFICIENT CODE 
K SPRING COEFFICIENT (8 VALUES) 

M MASS 

CTS COEFFICIENT FOR TORSIONAL STRESS 

NSML NONSTRUCTURAL MASS PER UNIT LENGTH (NASTRAN) 

IXY PRODUCT OF INERTIA (NASTRAN) 

SAL SURFACE AREA PER UNIT LENGTH (SUPERB) 

ARF AREA FORE END 

ara area aft end 

lYYF MOMENT OF INERTIA ABOUT Y AXES FORE END 
lYYA MOMENT OF INERTIA ABOUT Y AXES AFT END 
IZZF MOMENT OF INERTIA ABOUT Z AXES FORE END 
IZZA MOMENT OF INERTIA ABOUT Z AXES AFT END 
TCP TORSIONAL CONSTANT FORE END 
TCA TORSIONAL CONSTANT AFT END 
SSn SHEAR STIFFNESS FACTOR XY PLANE 
SSF2 SHEAR STIFFNESS FACTOR XZ PLANE 
IXYF PRODUCT OF INERTIA FORE END 
IXYA PRODUCT OF INERTIA AFT END 
WCF WARPING COEFFICIENT FORE END 
WCA WARPING COEFFICIENT AFT END 
SRT1 SHEAR RELIEF DUE TO TAPER XY PLANE 
SRT2 SHEAR RELIEF DUE TO TAPER XZ PLANE 
NAF COORDINATES OF NEUTRAL AXIS FORE END 
NAA COORDINATES OF NEUTRAL AXIS AFT END 
BSP BENDING STIFFNESS PARAMETER (NASTRAN) 

TSMT TRANSVERSE SHEAR THICKNESS DIVIDED BY MEMBRANE THICKNESS 
(NASTRAN) 

NSMA NONSTRUCTURAL MASS PER UNIT AREA (NASTRAN) 

MOV MATERIAL ORIENTATION VECTOR, REAL, 3 VALUES 
ERTC EFFECTIVE RADIUS IN TORSION C (SUPERB, SAGS) 

Z12 FIBER DISTANCES FOR STRESS COMPUTATION, 2 VALUES (NASTRAN) 
GE DAMPING COEFFICIENT (NASTRAN) 

Cl COMPONENT NUMBER 1 (NASTRAN) 

C2 COMPONENT NUMBER 2 (NASTRAN) 

MICS MASS INERTIA COORDINATE SYSTEM (SUPERB) 

MIM MASS INERTIA MATRIX (SUPERB) 

SRD STRESS RECOVERY D (2 VALUES) (NASTRAN) 

SRE STRESS RECOVERY E (2 VALUES) (NASTRAN) 

SRF STRESS RECOVERY F (2 VALUES) (NASTRAN) 

MOC MASS OFFSET CODE (SUPERB) 

MO MASS OFFSET (3 VALUES) SUPERB 

SOC SPRING ORIENTATION CODE (SUPERB) 

SOS SPRING ORIENTATION SPECIFICATON (3 VALUES) SUPERB 
NSMF NONSTRUCTURAL MASS PER UNIT LENGTH FORE END (NASTRAN) 
NSMA NONSTRUCTURAL MASS PER UNIT LENGTH AFT END (NASTRAN) 

SRCF STRESS RECOVERY C FORE END (2 VALUES) (NASTRAN) 

SRDF STRESS RECOVERY D FORE END (2 VALUES) (NASTRAN) 

SREF STRESS RECOVERY E FORE END (2 VALUES) (NASTRAN) 

SRFF STRESS RECOVERY F FORE END (2 VALUES) (NASTRAN) 

SRCA STRESS RECOVERY C AFT END (2 VALUES) (NASTRAN) 

SRDA STRESS RECOVERY D AFT END (2 VALUES) (NASTRAN) 
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73 

SREA 

74 

SRFA 

75 

NSIF 

76 

NSIA 

77 

NCGF 

78 

NCGA 

79 

WSAF 

80 

WSBA 

81 

SOO 

82 

EFS 

83 

TKZ 

84 

THY 

85 

IS 

86 

SDCZ 

87 

SDCY 

88 

IN 

89 

LOST 

90 

ssc 

91 

wc 

92 

FIX 

93 

CSC 

94 

ERTD 

95 

ERTF 

96 

ERTF 

97 

SRYF 

98 

SRYA 

99 

SRZF 

100 

SRZA 

101 

FIXF 

102 

FISA 

103 

ECYF 

104 

ECYA 

105 

ECZF 

106 

ECZA 

107 

CSCF 

108 

CSCA 

109 

ERCF 

110 

ERCA 

111 

ERDF 

112 

ERDA 

113 

EREF 

114 

EREA 

115 

ERFF 

116 

ERFA 

191 

OD 

192 

WT 

193 

S!FF 

194 

SI FA 

201 

PI 

202 

P2 

203 

P3 

204 

P4 

205 

P5 

206 

P6 


STRESS RECOVERY E AFT END (2 VALUES) (NASTRAN) 

STRESS RECOVERY F AFT END (2 VALUES) (NASTRAN) 
NONSTRUCTURAL MASS MOMENT OF INERTIA FORE END (NASTRAN) 
NONSTRUCTURAL MASS MOMENT OF INERTIA AFT END (NASTRAN) 
NONSTRUCTURAL MASS CENTER OF GRAVITY FORE END (NASTRAN) 
NONSTRUCTURAL MASS CENTER OF GRAVITY AFT END (NASTRAN) 
WARPING VARIABLE POINT FORE END (NASTRAN) 

WARPING VARIABLE POINT AFT END (NASTRAN) 

STRESS OUTPUT OPTION (ALPHANUMERIC) (NASTRAN) 

ELASTIC FOUNDATION STIFFNESS (ANSYS) 

BEAM THICKNESS Z DIRECTION (ANSYS) 

BEAM THICKNESS Y DIRECTION (ANSYS) 

INITIAL STRAIN (ANSYS) 

SHEAR DEFLECTION CONSTANT Z DIRECTION (ANSYS) 

SHEAR DEFLECTION CONSTANT Y DIRECTION (ANSYS) 

INTEGRATION NETWORK (NASTRAN) 

LOOATION FOR STRESS OUTPUT (NASTRAN) 

SPRING STRESS COEFFICIENT (ANSYS) 

WARPING COEFFICIENT (SAGS) 

DEGREE OF FIXITY (SAGS) 

COMBINED STRESS CODE (SAGS) 

EFFECTIVE RADIUS IN TORSION D (SAGS) 

EFFECTIVE RADIUS IN TORSION E (SAGS) 

EFFECTIVE RADIUS IN TORSION F (SAGS) 

SHEAR AREA RATION Y FORE END (SAGS) 

SHEAR AREA RATION Y AFT END (SAGS) 

SHEAR AREA RATION Z FORE END (SAGS) 

SHEAR AREA RATION Z AFT END (SAGS) 

DEGREE OF FIXITY FORE END (SAGS) 

DEGREE OF FIXITY AFT END (SAGS) 

ECCENTRICITY Y FORE END (SAGS) 

ECCENTRICITY Y AFT END (SAGS) 

ECCENTRICITY Z FORE END (SAGS) 

ECCENTRICITY Z AFT END (SAGS) 

COMBINED STRESS CODE FORE END (SAGS) 

COMBINED STRESS CODE AFT END (SAGS) 

EFFECTIVE RADIUS IN TORSION C FORE END (SAGS) 

EFFECTIVE RADIUS IN TORSION C AFT END (SAGS) 

EFFECTIVE RADIUS IN TORSION D FORE END (SAGS) 

EFFECTIVE RADIUS IN TORSION 0 AFT END (SAGS) 

EFFECTIVE RADIUS IN TORSION E FORE END (SAGS) 

EFFECTIVE RADIUS IN TORSION E AFT END (SAGS) 

EFFECTIVE RADIUS IN TORSION F FORE END (SAGS) 

EFFECTIVE RADIUS IN TORSION F AFT END (SAGS) 

OUTER DIAMETER — PIPE PROPERTY 
WALL THICKNESS — PIPE PROPERTY 
STRESS INTENSITY FACTOR FORE END — PIPE PROPERTY 
STRESS INTENSITY FACTOR AFT END — PIPE PROPERTY 
PHYSICAL PROPERTY 1 FOR DATA FORMATTER 
PHYSICAL PROPERTY 2 FOR DATA FORMATTER 
PHYSICAL PROPERTY 3 FOR DATA FORMATTER 
PHYSICAL PROPERTY 4 FOR DATA FORMATTER 
PHYSICAL PROPERTY 5 FOR DATA FORMATTER 
PHYSICAL PROPERTY 6 FOR DATA FORMATTER 
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207 

P7 

208 

P8 

209 

P9 

210 

P10 

211 

P11 

212 

P12 

213 

P13 

214 

P14 

215 

P15 

216 

P16 

217 

P17 

218 

P18 

219 

PI 9 

220 

P20 

221 

P21 

222 

P22 

223 

P23 

224 

P24 

225 

P25 

226 

P26 

227 

P27 

228 

P28 

229 

P29 

230 

P30 

231 

P31 

232 

P32 

232 

P33 

234 

P34 

235 

P35 

236 

P36 

237 

P37 

238 

P38 

239 

P39 

240 

P40 

241 

P41 

242 

P42 

243 

P43 

244 

P44 

245 

P45 

246 

P46 

247 

P47 

248 

P48 

249 

P49 


PHYSICAL PROPERTY 7 FOR DATA FORMATTER 
PHYSICAL PROPERTY 8 FOR DATA FORMATTER 
PHYSICAL PROPERTY 9 FOR DATA FORMATTER 
PHYSICAL PROPERTY 10 FOR DATA FORMATTER 
PHYSICAL PROPERTY 11 FOR DATA FORMATTER 
PHYSICAL PROPERTY 12 FOR DATA FORMATTER 
PHYSICAL PROPERTY 13 FOR DATA FORMATTER 
PHYSICAL PROPERTY 14 FOR DATA FORMATTER 
PHYSICAL PROPERTY 15 FOR DATA FORMATTER 
PHYSICAL PROPERTY 16 FOR DATA FORMATTER 
PHYSICAL PROPERTY 17 FOR DATA FORMATTER 
PHYSICAL PROPERTY 18 FOR DATA FORMATTER 
PHYSICAL PROPERTY 19 FOR DATA FORMATTER 
PHYSICAL PROPERTY 20 FOR DATA FORMATTER 
PHYSICAL PROPERTY 21 FOR DATA FORMATTER 
PHYSICAL PROPERTY 22 FOR DATA FORMATTER 
PHYSICAL PROPERTY 23 FOR DATA FORMATTER 
PHYSICAL PROPERTY 24 FOR DATA FORMATTER 
PHYSICAL PROPERTY 25 FOR DATA FORMATTER 
PHYSICAL PROPERTY 26 FOR DATA FORMATTER 
PHYSICAL PROPERTY 27 FOR DATA FORMATTER 
PHYSICAL PROPERTY 28 FOR DATA FORMATTER 
PHYSICAL PROPERTY 29 FOR DATA FORMATTER 
PHYSICAL PROPERTY 30 FOR DATA FORMATTER 
PHYSICAL PROPERTY 31 FOR DATA FORMATTER 
PHYSICAL PROPERTY 32 FOR DATA FORMATTER 
PHYSICAL PROPERTY 33 FOR DATA FORMATTER 
PHYSICAL PROPERTY 34 FOR DATA FORMATTER 
PHYSICAL PROPERTY 35 FOR DATA FORMATTER 
PHYSICAL PROPERTY 36 FOR DATA FORMATTER 
PHYSICAL PROPERTY 37 FOR DATA FORMATTER 
PHYSICAL PROPERTY 38 FOR DATA FORMATTER 
PHYSICAL PROPERTY 39 FOR DATA FORMATTER 
PHYSICAL PROPERTY 40 FOR DATA FORMATTER 
PHYSICAL PROPERTY 41 FOR DATA FORMATTER 
PHYSICAL PROPERTY 42 FOR DATA FORMATTER 
PHYSICAL PROPERTY 43 FOR DATA FORMATTER 
PHYSICAL PROPERTY 44 FOR DATA FORMATTER 
PHYSICAL PROPERTY 45 FOR DATA FORMATTER 
PHYSICAL PROPERTY 46 FOR DATA FORMATTER 
PHYSICAL PROPERTY 47 FOR DATA FORMATTER 
PHYSICAL PROPERTY 48 FOR DATA FORMATTER 
PHYSICAL PROPERTY 49 FOR DATA FORMATTER 


FINITE ELEMENT MATERIAL PROPERTIES 

PROPERTY DESCRIPTOR ELEMENT FAMILY AND INDEXES 

1 ISOTROPIC 

NUMBER OF PROPERTIES = 11 NUMBER OF VALUES = 11 

Property Indices 501,502.503,504,505,506,507,508,509,510,617 

2 ISOTROPIC (NULL) 

NUMBER OF PROPERTIES = 0 NUMBER OF VALUES = 0 

3 ORTHOTROPIC 

NUMBER OF PROPERTIES = 19 NUMBER OF VALUES = 19 

Property Indices 503,507,508,601,602,603,604,605,606,608,609,610,611 
612,613,614,615,616,617 
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4 ANISOTROPIC 

NUMBER OF PROPERTIES = 12 NUMBER OF VALUES = 37 

Property Indices 503,507.508,509,701,702,703,704,705,706,708 709 

5 ORTHOTROPIC (NULL) 

NUMBER OF PROPERTIES =0 ' NUMBER OF VALUES = 0 

6 ANISOTROPIC (NULL) 

NUMBER OF PROPERTIES = 0 NUMBER OF VALUES = 0 

7 ISOTROPIC (MATERIAL FOR DATA FORMATTER ELEMENTS) 

NUMBER OF PROPERTIES = 49 NUMBER OF VALUES = 49 

Property Indices 301 ,302,303,304,305,306,307,308,309,31 0,31 1 ,312,31 3 
31 4,31 5,31 6,31 7,31 8,31 9,320,321 ,322,323,324,325,326 
327,328,329,330,331,332,333,334,335,336,337,338,339 
340,341,342,343,344,345,346,347,348,349 

FINITE ELEMENT MATERIAL PROPERTIES 
MENU 

INDEX PICK DESCRIPTION 

501 E MODULUS OF ELASTICITY 

502 NU POISSON RATIO 

503 DEN MASS DENSITY 

504 G SHEAR MODULUS 

505 A COEFFICIENT OF THERMAL EXPANSION 

506 K THERMAL CONDUCTIVITY 

507 TREF THERMAL EXPANSION REFERENCE TEMPERATURE (NASTRAN) 

508 GE STRUCTURAL ELEMENT DAMPING COEFFICIENT (NASTRAN) 

509 CP THERMAL CAPACITY PER UNIT VOLUME (NASTRAN) 

510 YS YIELD STRESS (DEFAULT = 36000.) (SAGS) 

601 EX MODULUS OF ELASTICITY X DIRECTION 

602 EY MODULUS OF ELASTICITY Y DIRECTION 

603 EZ MODULUS OF ELASTICITY Z DIRECTION 

604 NUXY POISSON RATIO XY PLANE 

605 NUYZ POISSON RATIO YZ PLANE 

606 NUXZ POISSON RATIO XZ PLANE 

608 GXY SHEAR MODULUS XY PLANE 

609 GYZ SHEAR MODULUS YZ PLANE 

610 GXZ SHEAR MODULUS XZ PLANE 

611 AX COEFFICIENT OF THERMAL EXPANSION X DIRECTION 

612 AY COEFFICIENT OF THERMAL EXPANSION Y DIRECTION 

613 AZ COEFFICIENT OF THERMAL EXPANSION Z DIRECTION 

614 KX THERMAL CONDUCTIVITY X DIRECTION 

615 KY THERMAL CONDUCTIVITY Y DIRECTION 

616 KZ THERMAL CONDUCTIVITY Z DIRECTION 

617 Q HEAT GENERATION RATE (SUPERB) 

701 RW1 ROW 1 MATERIAL PROPERTY MATRIX (6 VALUES) 

702 RW2 ROW 2 MATERIAL PROPERTY MATRIX (5 VALUES) 

703 RW3 ROW 3 MATERIAL PROPERTY MATRIX (4 VALUES) 

704 RW4 ROW 4 MATERIAL PROPERTY MATRIX (3 VALUES) 

705 RW5 ROW 5 MATERIAL PROPERTY MATRIX (2 VALUES) 

706 RW6 ROW 6 MATERIAL PROPERTY MATRIX (1 VALUE) 

708 TEV THERMAL EXPANSION VECTOR (6 VALUES) 

709 KKM THERMAL CONDUCTIVITY MATRIX (6 VALUES) 

301 Ml MATERIAL PROPERTY 1 FOR DATA FORMATTER 

302 M2 MATERIAL PROPERTY 2 FOR DATA FORMATTER 

303 M3 MATERIAL PROPERTY 3 FOR DATA FORMATTER 

304 M4 MATERIAL PROPERTY 4 FOR DATA FORMATTER 
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305 

M5 

306 

M6 

307 

M7 

308 

M8 

309 

M9 

310 

M10 

311 

M11 

312 

M12 

313 

M13 

314 

M14 

315 

M15 

316 

M16 

317 

M17 

318 

M18 

319 

M19 

320 

M20 

321 

M21 

322 

M22 

323 

M23 

324 

M24 

325 

M25 

326 

M26 

327 

M27 

328 

M28 

329 

M29 

330 

M30 

331 

M31 

332 

M32 

333 

M33 

334 

M34 

335 

M35 

336 

M36 

337 

M37 

338 

M38 

339 

M39 

340 

M40 

341 

M41 

342 

M42 

343 

M43 

344 

M44 

345 

M45 

346 

M46 

347 

M47 

348 

M48 

349 

M49 


MATERIAL PROPERTY 5 FOR DATA FORMATTER 
MATERIAL PROPERTY 6 FOR DATA FORMATTER 
MATERIAL PROPERTY 7 FOR DATA FORMATTER 
MATERIAL PROPERTY 8 FOR DATA FORMATTER 
MATERIAL PROPERTY 9 FOR DATA FORMATTER 
MATERIAL PROPERTY 10 FOR DATA FORMATTER 
MATERIAL PROPERTY 11 FOR DATA FORMATTER 
MATERIAL PROPERTY 12 FOR DATA FORMATTER 
MATERIAL PROPERTY 13 FOR DATA FORMATTER 
MATERIAL PROPERTY 14 FOR DATA FORMATTER 
MATERIAL PROPERTY 15 FOR DATA FORMATTER 
MATERIAL PROPERTY 16 FOR DATA FORMATTER 
MATERIAL PROPERTY 17 FOR DATA FORMATTER 
MATERIAL PROPERTY 18 FOR DATA FORMATTER 
MATERIAL PROPERTY 19 FOR DATA FORMATTER 
MATERIAL PROPERTY 20 FOR DATA FORMATTER 
MATERIAL PROPERTY 21 FOR DATA FORMATTER 
MATERIAL PROPERTY 22 FOR DATA FORMATTER 
MATERIAL PROPERTY 23 FOR DATA FORMATTER 
MATERIAL PROPERTY 24 FOR DATA FORMATTER 
MATERIAL PROPERTY 25 FOR DATA FORMATTER 
MATERIAL PROPERTY 26 FOR DATA FORMATTER 
MATERIAL PROPERTY 27 FOR DATA FORMATTER 
MATERIAL PROPERTY 28 FOR DATA FORMATTER 
MATERIAL PROPERTY 29 FOR DATA FORMATTER 
MATERIAL PROPERTY 30 FOR DATA FORMATTER 
MATERIAL PROPERTY 31 FOR DATA FORMATTER 
MATERIAL PROPERTY 32 FOR DATA FORMATTER 
MATERIAL PROPERTY 33 FOR DATA FORMATTER 
MATERIAL PROPERTY 34 FOR DATA FORMATTER 
MATERIAL PROPERTY 35 FOR DATA FORMATTER 
MATERIAL PROPERTY 36 FOR DATA FORMATTER 
MATERIAL PROPERTY 37 FOR DATA FORMATTER 
MATERIAL PROPERTY 38 FOR DATA FORMATTER 
MATERIAL PROPERTY 39 FOR DATA FORMATTER 
MATERIAL PROPERTY 40 FOR DATA FORMATTER 
MATERIAL PROPERTY 41 FOR DATA FORMATTER 
MATERIAL PROPERTY 42 FOR DATA FORMATTER 
MATERIAL PROPERTY 43 FOR DATA FORMATTER 
MATERIAL PROPERTY 44 FOR DATA FORMATTER 
MATERIAL PROPERTY 45 FOR DATA FORMATTER 
MATERIAL PROPERTY 46 FOR DATA FORMATTER 
MATERIAL PROPERTY 47 FOR DATA FORMATTER 
MATERIAL PROPERTY 48 FOR DATA FORMATTER 
MATERIAL PROPERTY 49 FOR DATA FORMATTER 
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DATASET TYPE: 
DESCRIPTION: 
RECORD 1: 

RECORD 2-N: 


74 

ELEMENT 
FORMAT(40A2) 
FIELD 1 
FORMAT(5I10) 
FIELD 1 
FIELD 2 
FIELD 3 


FIELD 4 
FIELD 5 


PARENT FINITE ELEMENT SET SERIAL NUMBER 

FINITE ELEMENT LABEL 
FINITE ELEMENT ANCHOR TYPE ID 
FINITE ELEMENT TOPOLOGY LABEL 
(IF ZERO, THEN ASSUMED TO BE SAME AS 
FINITE ELEMENT LABEL) 

FINITE ELEMENT PHYSICAL VALUE ID 
FINITE ELEMENT MATERIAL VALUE ID 


ELEMENT 

ANCHOR 

FINITE ELEMENTS 

PROPERTY DESCRIPTOR 

DESCRIPTION* 

TYPE 

CONNECTIVITY # 

TYPES 

PHYSICAL ISO ORTHO ANISO 

PSS.LT 

42 

2 

10 

1 

3 

4 

PSS,PT 

42 

3 

10 

1 

3 

4 

PSS,CT 

43 

3 

10 

1 

3 

0 

PSS,LQ 

44 

5 

10 

1 

3 

4 

PSS,PQ 

45 

6 

10 

1 

3 

4 

PSS,CQ 

40 

7 

10 

1 

3 

0 

PST,LT 

51 

2 

11 

1 

3 

0 

PST.PT 

52 

3 

11 

1 

3 

0 

PST,CT 

53 

4 

11 

1 

3 

0 

PST.LQ 

54 

5 

11 

1 

3 

0 

PST,PQ 

55 

6 

11 

1 

3 

0 

PST.CQ 

56 

7 

11 

1 

3 

0 

PLT.LT 

61 

2 

14 

1 

3 

4 

PLT.PT 

62 

3 

14 

1 

3 

4 

PLT.CT 

63 

1 

14 

1 

3 

4 

PLT,LQ 

64 

5 

14 

1 

3 

4 

PLT,PQ 

65 

6 

14 

1 

3 

4 

PLT,CQ 

66 

7 

14 

1 

3 

0 

MEM.LQ 

71 

5 

13 

1 

3 

0 

AXI,LT 

31 

25 

12 

1 

3 

0 

AXI,PT 

82 

26 

12 

1 

3 

0 

AXI,LQ 

84 

27 

12 

1 

3 

0 

AXI,PQ 

85 

28 

12 

1 

3 

0 

TN,LT 

91 

2 

13 

1 

3 

4 

TN,PT 

92 

3 

13 

1 

3 

4 

TN,CT 

93 

4 

13 

1 

3 

4 

TN,LQ 

94 

5 

13 

1 

3 

4 

TN,PQ 

95 

6 

13 

1 

3 

4 

TN,CQ 

96 

7 

13 

1 

3 

0 

TK.LW 

101 

8 

16 

1 

3 

0 

TK,PW 

102 

9 

16 

1 

3 

0 

TK.CW 

103 

10 

16 

1 

3 

0 

TK,LB 

104 

11 

16 

1 

3 

0 

TK,PB 

105 

12 

16 

1 

3 

0 

TK,CB 

106 

13 

16 

1 

3 

0 

SOULT 

111 

14 

4 

1 

3 

4 

SOULW 

112 

16 

4 

1 

3 

4 

SOUPW 

113 

17 

4 

1 

3 

4 

soucw 

114 

18 

4 

1 

3 

0 
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SOL, LB 

115 

19 

4 

1 

3 

SOUPB 

116 

20 

4 

1 

3 

SOL.CB 

117 

21 

4 

1 

3 

RB 

121 

34 

1 

1 

0 

SP.NNS 

131 

29 

3 

2 

5 

SP,NGS 

132 

30 

17 

2 

5 

SP.NND 

133 

31 

18 

2 

5 

SP.NGD 

134 

32 

19 

2 

5 

SP,LM 

135 

33 

15 

2 

5 

PI, SI 

31 

1 

8 

1 

0 

PI,EL 

32 

1 

8 

1 

0 

BM,LB 

21 

1 

2 

1 

0 

BM,TB 

22 

1 

6 

1 

0 

BM,CB 

23 

1 

7 

1 

0 

RD 

11 

1 

5 

1 

0 


4 

4 

4 

0 

6 

6 

6 

6 

6 
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APPENDIX B 


Source Code for GEOMETRY Module 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 
0063 


D180-30550-4 

cccccccccccccccccccccccccccccccccccccccccccc 

c 

GEOMETRY VER 2.51 06-30-1986 


BOEING AEROSPACE CO. 


cccccccccccccccccccccccccccccccccccccccccccc 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


Geometry is a code for producing the geometry tables used by the 
BUMPER code for evaluating space structures impacted by man made 
orbital debris or meteoroids. The geometry of the structure is 
defined by a Supertab universal file which the code reads in. The 
coordinates of the grid points in the universal file must be in 
the basic coordinate sytem. The code outputs the threat information, 
the element id and pid, and each element * s surface area. In 
addition for each threat considered the code outputs a list of the 
exposed elements and the cosine of the impact angle on each exposed 
element . 

The code was developed under the NASA contract 'Space Station 
Integrated Wall Design Guide and Penetration Damage Control* 
by M.A. Wright and A . R. Coronado . 


Common Block 
Variable List 

it = current relative threat angle case 

itype = analysis type , 1-man-made debris, 2-meteoroids 

nelm = total number of elements 

npe = number of potentially exposed elements for the current 
relative threat angle case 
nt = total number of relative threat angle cases 


Array list 

element = global array containing the primary element data as read 
from Supertab universal file 


X coordinate of grid 1 

y 

z 

X 

y 
2 
X 

y 

z 
a 
b 
c 

X 

y 

z 


1 - 
2 - 

3- 

4- 

5- 

6 - 

7- 

8 - 
9- 

10 - 
11 - 
12 - 

13- 

14- 

15- 

16- square of the radius enclosing element , origin at cent, 

17- surface area 


value of the unit normal vector 


coordinate of the centroid 


id == global array containing the element id, property id 
point id's 


and grid 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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1- eid 

2- pid 

3- idgl 

4- idg2 

5- idg3 

iel = global list of the elements containing exposure logical values 
for the current threat angle 

1- frontside element 

2- exposed element 

iexp = global list of the potentially exposed element pointers for 
the current threat angle sorted on the x and y transformed 
axis 


1- sorted on x tranformed 

2- »» « y » 

point = global array of pointers f indicates where in IEXP an element 
is located 


1- location in IEXP (1,1) 

2- location in IEXP (2, I) 


transform = global array containing the element data in the coordinate 
system parallel to the current threat angle 


1 - 

2 - 

3- 

4- 

5- 

6 - 

7- 

8 - 
9- 

10 - 

11 - 

12 - 

13- 


cosine of the impact angle, measured from the normal 
X transformed coordinate for the centroid 


Y 

z 

X 

y 

z 

X 


fl 

It 


II II II 

II II II 

" grid 1 

II II II 

It It ft 

It It 2 


y 

z 

X 

y 

z 


Tl 

It 

II 

II 


It 

It 

ft 

ft 


It tl 


It 

ft 


3 


It 


It 


threat = global array containing the threat data 

1- theta angle, measured from space station velocity 
vector in the horizontal plane, radians 

2- phi angle, measured from the Earth normal, radians 

3- relative velocity of the threat particle with respect 
to the Space Station, km/sec 

4- probablity of the relative threat occuring 


Main Program 


Variable List 


ifile = filename of the Supertab universal file 
ivar = variable in transform to sort on 
ofile = output filename 
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0127 C 

0128 INCLUDE *COMMONl .BLK» 

0147 C 

0148 CHARACTER* 80 IFILE.OFILE 

0149 C 

0150 C 

0151 C Write header, obtain analysis type and input and output filenames 

0152 C 

0153 CALL HEADER ( IFILE,OFILE ) 

0154 C 

0155 C Open files 

0156 C 

0157 10 OPEN (UNIT=2,FILE=IFILE,STATUS=*OLD*,ERR=20) 

0158 C 

0159 GO TO 50 

0160 C 

0161 C Error control on open 

0162 C 

0163 20 WRITE ( 6,30 ) IFILE 

0164 30 FORMAT ( /IX, ’UNABLE TO OPEN SUPERTAB UNIVERSAL FILE ’ , A, 

0165 1 /IX, ’SUPERTAB UNIVERSAL FILENAME >’ ) 

0166 READ { 5,40 ) IFILE 

0167 40 FORMAT (A) 

0168 GO TO 10 

0169 C 

0170 50 OPEN (UNIT==4, FILE=OFILE, STATUS=’UNKNOWN' , FORM=’UNFORMATTED ’ , 

0171 1 ERR=60) 

0172 C 

0173 REWIND 4 

0174 C 

0175 GO TO 75 

0176 C 

0177 C Error control on open 

0178 C 

0179 60 WRITE ( 6,70 ) OFILE 

0180 70 FORMAT ( /IX, ’UNABLE TO OPEN OUTPUT FILE ',A, 

0181 1 IX, ’OUTPUT FILENAME >’) 

0182 READ ( 5,40 ) OFILE 

0183 GO TO 50 

0184 C 

0185 C Create threat array 

0186 C 

0187 75 IF ( ITYPE.EQ,! ) THEN 

0188 CALL DTHREAT 

0189 ELSE 

0190 CALL MTHREAT 

0191 END IF 

0192 C 

0193 C Read in Supertab data base 

0194 C 

0195 CALL DATA 

0196 C 

0197 C Calculate unit vector normals for all elements 

0198 C 

0199 CALL NORMAL 

0200 C 

0201 C Calculate centroids for all elements 

0202 C 

0203 CALL CENTROID 

0204 C 

0205 C Calculate the area of each element in global coordinates 

0206 C 

0207 CALL AREA 
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0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


D180-305504 

Calculate maximum radius enclosing each element 
CALL RADIUS 

This section determines hidden /exposed surfaces (elements) 
Initialize NPE to 0 
NPE=0 

DO 100 1=1, NT 


IT=I 


Eliminate all elements whose normal vector points away from the 
threat ( backside elements ) 

CALL BACKSIDE 

Transform remaining elements to a coordinate system parallel to the 
threat 


CALL TRANS 

Sort the potentially exposed elements on their transformed x distance 
from the threat in descending order 

IVAR=2 

CALL QSORT ( IVAR ) 

Sort the potentially exposed elements on their transformed y distance 
from the threat in descending order 

IVAR=3 

CALL QSORT ( IVAR ) 

Generate the element pointers for the sorted lists 

DO 80 J=1,NPE 

POINT (1, (lEXP (1, J) ) )=J 
POINT (2, (IEXP(2, J) ) )=J 
80 CONTINUE 

Eliminate the elements that are in the shadow of other elements 
CALL SHADOW 

Write data to the output file 
CALL OUTPUT 
Next threat direction 
Write completed number to the screen 
WRITE ( 6,90 ) IT 

90 FORMAT (IX, » THREAT CASE *,I4,» COMPLETED*) 

100 CONTINUE 

Write out location of output file to the screen 
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0271 


WRITE 

(6,110) 

OFILE 


0272 

0273 

C 

110 FORMAT 

(/IX, ' 

OUTPUT LOCATED 

IN FILE ', 

0274 

C 

Close files and 

save 


0275 

0276 

C 

CLOSE 

( UNIT 

= 2 , STATUS = 

' KEEP ' ) 

0277 

0278 

C 

CLOSE 

( UNIT 

= 4 , STATUS = 

' KEEP ' ) 

0279 


END 
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0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE HEADER ( IFILE, OFILE) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Header writes the program header to the screen and reads in the 
C supertab universal file name and the output filename. It also 
C determines the analysis type. 

C 

C 

C Variable list 
C 

C answer = character string representing user input 
C ifile = character string for input file name 

C ofile = character string for output file name 

C 
C 
C 

INCLUDE * COMMONl . BLK * 

C 

CHARACTER*80 ANSWER, IFILE, OFILE 
C 

C Write header to screen 
C 

WRITE ( 6,10 ) 

10 FORMAT (/IX, * GEOMETRY VER 2.51’) 

C 

C Determine analysis type, set default to 1 (debris) 

C 

15 WRITE ( 6,20 ) 

20 FORMAT (/IX, ’ANALYSIS TYPE ?’, /2X, » 1-DEBRIS <CR> ’ , /2X, 

1 ’2-METEOROIDS’, /IX, ’ANSWER 1 OR 2 >’,$) 

C 

READ ( 5,30 ) ANSWER 
30 FORMAT (A) 

C 

IF ( ANSWERd :1) .EQ. ’ ’ ) THEN 

ITYPE=1 
ELSE 

READ ( ANSWERd : 80) , 40 ) ITYPE 
40 FORMAT ( BN, 14 ) 

END IF 
C 

C Check that input was correct 
C 

IF ( ITYPE. EQ.l .OR. ITYPE. EQ. 2 ) THEN 
CONTINUE 
ELSE 

WRITE { 6,50 ) 

50 FORMAT ( / IX, ’ INCORRECT INPUT’ ) 

GO TO 15 
END IF 
C 

C Read Supertab universal filename, or set to default to station. uni 
C 

WRITE ( 6,60 ) 

60 FORMAT (/ IX, ’ SUPERTAB UNIVERSAL FILENAME (CR=STATION . UNI ) >',$) 

READ ( 5,30 ) IFILE 

IF ( IFILE (1 : 1) .EQ. * ’ ) IFILE= * STATION . UNI ’ 

C 
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D180-30550-4 

C Read output file name, or set to default to station. gem 
C 

WRITE ( 6,70 ) 

70 FORMAT (/IX, 'OUTPUT FILENAME (CR=STATION . GEM) >',$) 
READ ( 5 , 30 )OFILE 

IF (OFILE(l:l) .EQ. ' *) OF ILE= * STATION , GEM ' 

C 

C Finished 
C 

RETURN 

C 

END 
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0001 c 

0002 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0003 C 

0004 SUBROUTINE DTHREAT 

0005 C 

0006 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0007 C 

0008 C 

0009 C Dthreat builds the Threat array for man-made orbital debris 

0010 C analysis. The code models only relative threats between -90 and 90 

0011 C degrees in the horizontal plane measured from the space station 

0012 C velocity vector. Orbital mechanics show that only these relative 

0013 C threats can occur. 

0014 C 

0015 C The code calculates the velocity of the debris particle relative to 

0016 C the space station. The probability of the relative threat occuring 

0017 C is then derived from the NASA JSC-20001 velocity distribution. The 

0018 C orbital altitude is assumed to be 500 km. 

0019 C 

0020 C The code requires that the relative velocity distribution be defined 

0021 C in the user file DEB.VEL . The file is a list of third order curves 

0022 C defining the various ranges of the distribution. There can be up 

0023 C to 20 ranges. The data is read in free field format. The ranges must 

0024 C be in ascending order. The record format is as follows : 

0025 C 

0026 C record 1-20 - nr, rmin^ rmax, cl, c2 , c3, c4 

0027 C 

0028 C where 

0029 C 

0030 C cl-c4 = third order curve constants 

0031 C p (vr) = cl + c2*vr + c3*vr**2 + c4*vr**3 

0032 C nr = range number 

0033 C rmax = max relative velocity in range nr 

0034 C rmin = min relative velocity in range nr 

0035 C 

0036 C 

0037 C 

0038 C note: for variables in the common block see the main listing 

0039 C 

0040 C Variable List 

0041 C 

0042 C answer = character string representing user input 

0043 C cpl = ciomulative relative threat angle probability at angle T1 

0044 C cp2 = ” ” ” ” " *» " T2 

0045 C cl,c2,c3,c4 = third order curve fit constants for the relative 

0046 C velocity distribution at range nr 

0047 C ic = counter 

0048 C ipl = pointer for angle T1 in the DATA array 

0049 C ip2 = ” " ” T2 ” ” ” " 

0050 C ipl2 = pointer for the next angle after ipl 

0051 C ip22 = ” ” ip2 

0052 C ncal = number of calculations for the DATA arrays 

0053 C nr = current range number for the relative velocity distribution 

0054 C pra = probability densisty of the current relative threat 

0055 C prv = " " « ” ” ” velocity 

0056 C prob = probability of the current threat (+/- tinc/2) occuring 

0057 C phi = relative threat angle measured from the Earth normal, radians 

0058 C ratl,rat2 = intermediate linear interpolation variables 

0059 C sum = sum of the current list program is evaluating 

0060 C tc = theta increment used in the DATA array calculations, radians 

0061 C the = current theta , used in DATA array calculations, radians 

0062 C theta = relative threat angle measured from the space station 

0063 C velocity vector in the horizontal plane, radians 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 


C tine = theta increment in the THREAT array, radians 
C tl = theta plus tinc/2 , radians 

C t2 = ” minus tinc/2, radians 

C vmax = maximum relative velocity in VDIST, km/sec 
C vmin = minimum ” 

C vr = relative velocity of the debris particle with respect to the 

C space station, km/ sec 

C vs = space station orbital velocity, km/sec 

C vll, vl2, v21, v22 = intermediate linear interpolation variables 
C xrmax = maximum relative velocity in range nr, km/sec 
C xrmin = minimum 
C 
C 

C Array List 
C 

C data = working list of the relative threat angle probability 
C densisty and the cumulative relative angle probability. 

C Used to calculate the Threat array. 

C threat = global array containg the threat information, theta, phi, 
C vr,prob 

C vdist = array containg third order curve constants describing the 

C the NASA JSC 20001 relative velocity distribution 

C 

C 

C 

C 

INCLUDE * COMMONl . BLK * 

C 

DIMENSION VDIST(6,20) ,DATA(2,2000) 

C 

CHARACTER*90 ANSWER 
C 

PARAMETER (PI=3 , 1415926536) 

C 

C Set the space station velocity 
C 

VS=7 , 50D0 
C 

C Set Phi equal to a constant ( PI/2 ) 

C 

PHI=PI/2 .0 
C 

C Set up the working array variables 
C 

NCAL=1000 
TC=Pl/2 .0/NCAL 
C 

C Read in the number of uniform threats, set default to 45 
C 

40 WRITE ( 6,50 ) 

50 FORMAT ( /IX, ^NUMBER OF UNIFORM DEBRIS THREATS (CR=45) >*,$) 
READ { 5,60 ) ANSWER 
60 FORMAT (A) 

C 

IF ( ANSWERd : 1) .EQ. ' ' ) THEN 

NT=45 
ELSE 

READ ( ANSWERd: 90) , 70 ) NT 
70 FORMAT ( BN, I 6 ) 

END IF 
C 

C Check that the number of threats is less than 200 
C 
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0145 IF ( NT.GT.200 ) THEN 

0146 WRITE ( 6,80 ) NT 

0147 80 FORMAT ( /IX, 'NUMBER OF THREATS (',14,') IS OUTSIDE OF RANGE') 

0148 GO TO 40 

0149 END IF 

0150 C 

0151 C Calculate the Theta increment in the threat array 

0152 C 

0153 TINC=PI/NT 

0154 C 

0155 C Open the DEB.VEL file and read in the relative velocity distribution 

0156 C data 

0157 C 

0158 OPEN ( UNIT=7,FILE='DEB.VEL',STATUS='OLD',ERR=100 ) 

0159 C 

0160 GO TO 200 

0161 C 

0162 C Error control for open 

0163 C 

0164 100 WRITE ( 6,110 ) 

0165 110 FORMAT ( /IX, 'DEBRIS VELOCITY DISTRIBUTION FILE DEB.VEL WAS', 

0166 1 ' NOT FOUND'/' FILENAME ? >') 

0167 READ ( 5,60 ) ANSWER 

0168 C 

0169 IF ( ANSWER(1:2) .EQ. ' ' ) GO TO 100 

0170 C 

0171 OPEN ( UNIT=7,FILE=ANSWER,STATUS='OLD',ERR=100 ) 

0172 C 

0173 C Read the data, counting the number of ranges read 

0174 C 

0175 200 IC=0 

0176 DO 225 1=1,20 

0177 READ ( 7,*,END=250 ) NR, (VDIST ( J, I) , J=l, 6) 

0178 IC=IC+1 

0179 225 CONTINUE 

0180 C 

0181 250 CLOSE ( UNIT=7, STATUS='KEEP ' ) 

0182 C 

0183 C Determine the minimum and maximum allowable relative velocities 

0184 C 

0185 VMIN=VDIST (1, 1) 

0186 VMAX=VDIST (2, IC) 

0187 C 

0188 C Intialize the range pointer to 1 

0189 C 

0190 NR=1 

0191 C 

0192 C Calculate the relative threat angle probability density for the 

0193 C working array 

0194 C 

0195 DO 400 I=1,NCAL+1 

0196 C 

0197 C Set the Theta angle and calculate the relative velocity. From 

0198 C orbital mechanics it is known that the velocity of the station is 

0199 C approximately equal to the velocity of the debris particle. Vr is 

0200 C related to vs through vector addition. 

0201 C 

0202 THC=(I-1)*TC 

0203 VR=2 . 0*VS*ABS (COS (THC) ) 

0204 C 

0205 C Check that vr is in the range of the relative velocity distribution 

0206 C data 

0207 C 
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0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 


IF ( VR.LT.VMIN .OR. VR.GT.VMAX ) THEN 
WRITE ( 6,275 ) VR 

275 FORMAT ( /IX, * IMPACT VELOCITY OUTSIDE OF ALL RANGES ’,/ 

1 IX, »VR==* ,E12 .5) 

STOP 
END IF 
C 

C Get the current relative velocity range 
C 

300 XRMIN=VDIST (1,NR) 

XRMAX=VDIST (2, NR) 

C 

C Check that this is the correct range, if not increment accordingly 
C being sure to not step outside of VDIST array 
C 

IF ( VR . LT . XRMIN) THEN 
NR=NR-1 
C 

IF ( NR.LT.l ) THEN 
WRITE ( 6,350 ) 

350 FORMAT ( /IX, * CANNOT FIND CORRECT VELOCITY RANGE ’ ) 

STOP 
END IF 
C 

GO TO 300 
END IF 
C 

IF (VR.GT.XRMAX) THEN 
NR=NR+1 
C 

IF ( NR.GT.IC ) THEN 
WRITE ( 6,350 ) 

STOP 
END IF 
C 

GO TO 300 
END IF 
C 

C Get curve fit constants 
C 

C1=VDIST (3, NR) 

C2=VDIST (4, NR) 

C3=VDIST (5,NR) 

C4=VDIST (6,NR) 

C 

C Calculate the relative velocity probability density 
C 

PRV=C1+C2*VR+C3*VR**2 . 0+C4*VR**3 . 0 
C 

C Calculate the associated relative threat angle probability density, 
C it is the relative velocity probability density multiplied by the 
C absolute value of the derivative of the equation relating the two. 

C 

PRA==PRV*2 .0*VS*ABS (SIN{THC) ) 

C 

C store in the DATA array 
C 

DATA(1, I)=PRA 
C 

C Next threat 
C 

400 CONTINUE 
C 
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0287 

0288 

0289 
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0293 
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0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 
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0311 
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0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 
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0333 


C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 


C 

C 

C 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


Use a trapezoid approximation to determine the area under the 
probability density curve. The running sum of this value is the 
cumulative probability. Store the cumulative probability in the 
DATA array. 

DATA(2,1)=0.0D0 

SUM=0 .ODO 
DO 500 I=1,NCAL 

PROB=0 .50*TC* (DATA(1, I) +DATA(1, (I+l) ) ) 

SUM=SUM+PROB 
DATA(2, (I+l) )=SUM 
500 CONTINUE 

Use the DATA array to determine the THREAT array 
DO 700 1=1, NT 

Set Theta and calculate the relative velocity 

THETA= (TINC/2 . 0+ (I-l) *TINC) -Pl/2 . 0 
VR=2,0*VS*ABS (COS (THETA) ) 

Determine the location of the nearest angle in the data array 
to the theta that is still less than theta 

IP=ABS (THETA/TC) +1 

Set the threat angle increment , T1 to T2 

Tl=THETA-TINC/2 . 0 
T2=THETA+TINC/2 . 0 

Determine the location of nearest angle to T1 & T2 in the Data 
array that is still less than T1 & T2 

IP1=ABS (Tl/TC) +1 
IP2=ABS (T2/TC) +1 

Determine the location of the next largest angle in the Data array 
for T1 and T2 . Checking that it is not outside the array. 

IP12=IP1+1 

IF ( IP12.GT.NCAL+1 ) IP12=NCAL+1 
IP22=IP2+1 

IF ( IP22 .GT.NCAL+1 ) IP22=NCAL+1 

Estimate the probability of the threat occuring by using the cumulative 
probability values in the Data array and linear interpolation. 

Get the cumulative probability data from the Data array 

V11=DATA(2, IPl) 

V12=DATA(2, IP12) 

V21=DATA(2, IP2) 

V22=DATA(2, IP22) 

Perform the interpolation 

RAT1=ABS (Tl/TC-INT (Tl/TC) ) 

RAT2=ABS (T2/TC-INT (T2/TC) ) 

CP1=RAT1* (V12-V11) +V11 
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0353 

0354 
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0366 

0367 
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0369 

0370 

0371 


CP2^RAT2* (V22-V21) +V21 
C 

C For angle increments spanning the 0.0 angle add the ciomlative values. 
C Else subract the values. 

C 

IF ( IP.LE.l ) THEN 
PROB=ABS (CP1+CP2) 

ELSE 

PROB=ABS (CP2-CP1) 

END IF 
C 

C Store the data in the Threat array 
C 

THREAT (1,1) =THETA 
THREAT (2, I) =PHI 
THREAT (3,1) =VR 
THREAT (4, I) =PROB 
C 

C Next threat 
C 

700 CONTINUE 
C 

C Normalize the probabilty data in the threat array to 1.0 
C 

SUM=0 . ODO 
DO 800 1=1, NT 

SUM=SUM+THREAT (4,1) 

800 CONTINUE 
C 

DO 850 1=1, NT 

THREAT (4, I) =THREAT (4, I) /SUM 
850 CONTINUE 
C 

C Finished 
C 

RETURN 

C 

END 
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c D180-30550-4 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUT INK MTHREAT 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Mthreat builds the Threat array for meteoroid analysis. The code 
C models the relative threat as a hemisphere broken into approximately 
C equal area square elements ( similar to an Igloo ) . A given relative 
C threat is determined by calculating the Theta and Phi angles mesured 
C from the origin to the given element . The probability of this 
C relative threat occuring is equal to the ratio of the element's 
C surface area to the total surface area of the hemisphere. 

C 

C The probability is further modified to account for the orbital motion 
C of the space station. The velocity of the meteoroid relative to the 
C space station is calculated as well as the flux focusing factor, Ted 
C Hansen developed the flux focusing factor. 

C 

C As a first order approximation the meteoroids are assumed to all have 
C a absolute velocity equal to the average meteoroid velocity. This 
C ignores the actual velocity distribution but appears to give reasonable 
C results while greatly simplifying the analysis, 

C 

C All the calculations are done in double precision but stored as single 
C precision in the Threat array. 

C 

C Note: for variables included in the common block see main listing 

C 

C Variable List 
C 

C alpha = angle between the space station velocity vector and the 
C relative threat vector, radians 

C alt = altitude of the space station less 100km atmosphere, km 
C answer = character string representing user input to a given question 
C ar = ratio of a given element's surface area to the hemisphere surface 
C area 

C chi = pi - gamma, radians 

C del = the delta phi angle, equal for each ring in the hemisphere, 

C radians 

C dphi = the angle measured from the z axis to the relative threat vector 
C double precision, radians 

C dpi = double precision pi 

C dtheta = the angle measured from the space station velocity vector 
C to the relative threat vector, double precision , radians 

C gamma - half angle of the shaded cone , radians 
C h = vertical height of a given ring 
C 11 = intermediate variable, radians 

C 12 = ” " " 

C ic = counter 

C prob probability of a given relative threat occuring 
C re = earth's radius (including 100 km atmosphere), km 

C sf - portion of space station exposed to meteoroids 

C sum = running sum of the probabilities 
C tine = theta increment in a given ring, radians 
C tmf = flux focusing factor 

C vm = velocity of the meteoroid, km/sec 

C vr = velocity of the meteoroid relative to the space station , km/sec 

C vs = orbital velocity of the space station, km/sec 
C vstar = intermediate variable, km/sec 
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0138 

0139 

0140 

0141 

0142 

0143 

0144 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

c 

c 


c 

c 

c 


c 

c 

c 


c 


c 


c 

c 

c 


c 

c 

c 

c 


D 180-30550-4 


Array list 

area = area of the elements in a ring 
dthreat = threat array in double precision 
nel = number of elements in a ring 

threat = array containing the relative theta & phi angles, 

the realtive velocity and the relative threat probability 


INCLUDE ’ COMMONl . BLK * 

DIMENSION NEL (50) 

REAL* 8 DPI 

PARAMETER ( DPI=3 . 141592653589793238D0 ) 

CHARACTER* 90 ANSWER 

REAL*8 ALPHA, ALT, AR, CHI, DEL, DPHI, DTHETA, GAMMA, H, Ll, L2, PROS, RE 
1 SF, SUM,TMF,VM, VR, VS, VSTAR, AREA(50) , DTHREAT (4, 1000) 

Set the station and meteoroid velocity 

VS=7 .50D0 
VM=20 . ODO 


Set the Earth radius and Space Station altitude 

RE=6478 .ODO 
ALT=500 .ODO-100 . ODO 

Read in the threat case to be run 


40 WRITE ( 6,50 ) 

50 FORMAT ( IX, 'NUMBER OF UNIFORM METEOROID THREATS ?', 

1 /5X, '1 - 84',/5X, '2 - 146<CR>',/5X, '3 - 232', 

2 /5X, '4 - 329', /IX, 'ANSWER (1-4) >',$) 

READ ( 5,60 ) ANSWER 
60 FORMAT (A) 


IF ( ANSWERd :2) .EQ. ' ' ) THEN 

IANS=2 
ELSE 

READ ( ANSWER(1:80) ,70 ) IANS 
70 FORMAT ( BN, I 6 ) 

END IF 


Check, if the threat case is within the given range 

IF ( IANS.GT.4 .OR. IANS . LT . 1 ) THEN 
WRITE ( 6,80 ) 

80 FORMAT ( 'O', 'ANSWER OUTSIDE OF RANGE ' ) 

GO TO 40 
END IF 


Determine the half angle of the shaded cone, 
equation is from JSC-30000 

GAMMA=DASIN (RE/ (RE+ALT) ) 
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0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 
0207 


C 

C 

C 

C 


C 

C 

C 


C 

C 

C 

C 

C 


C 

C 

C 

C 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CHI=DPI-GAMMA 

Calculate the number of uniform rings in the hemisphere, and the 
delta phi angle for each ring 

NR=6+ (IANS-1) *2 
DEL=CHI/NR 

Determine the number elements and their area in the first ring 

NEL (1) =IDNINT (2 . 0D0*DPI/DEL) 

H=DSIN(DEL) 

AREA (1) =2 . 0D0*DPI*H/NEL (1) 

Do the same for all the other rings holding the area approximately 
equal . 

DO 100 1=2, NR 

H=ABS (DCOS (CHI-I*DEL) -DCOS (CHI- (I-l) *DEL) ) 

NEL(I)=IDNINT(2 .0D0*DPI*H/AREA(1) ) 

AREA(I) =2 .0D0*DPI*H/NEL(I) 

100 CONTINUE 

Determine the number of elements ( equal to the number of threats ) 


NT=0 

DO 200 1=1, NR 
NT=NT+NEL (I) 

200 CONTINUE 

Each element represents a given relative threat direction. For each 
element determine the location of it*s C.G. . Also calculate the 
relative meteoroid velocity for this threat and the flux focusing 
factor. Store the results in the Threat array. 


IC=0 


DO 400 1=1, NR 

Calculate the theta increment in the ring 
TINC=2 . 0D0*DPI/NEL (I) 

Calculate phi for the C.G., constant for each element in the ring 

Ll=DPI/2 . 0+ (I-l) *DEL-CHI 
L2=L1+DEL 

DPHI=DACOS (0 .50D0* (DSIN(Ll) +DSIN(L2) ) ) 

Calculate the probability of the threat occuring, constant for each 
element in the ring 

AR=AREA(I) /4.0D0/DPI 

Evaluate each element 

DO 300 J=1,NEL(I) 

IC=IC+1 

Determine the theta of the C.G. 
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0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 


C 

C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 


c 

c 

c 

c 


DTHETA=TINC/2 ,0D0+(J-1) *TINC 

Calculate the relative meteoroid velocity and the flux focusing factor 

ALPHA=DACOS (DSIN(DPHI) *DCOS (DTHETA) ) 

VSTAR=DSQRT (VM**2-VS**2* (DSIN (ALPHA) **2) ) 

VR=VSTAR+VS*DCOS (ALPHA) 

TMF=VR* * 3 / VSTAR/ VM* *2 

Apply the focusing factor to the probability 
PROB=AR*TMF 

Store the values in the Threat array 

DTHREAT (1, IC) =DTHETA 
DTHREAT {2, IC) =DPHI 
DTHREAT (3, IC) =VR 
DTHREAT ( 4 , IC ) =PROB 

300 CONTINUE 

400 CONTINUE 

Store Dthreat array in Threat 

DO 600 1=1, NT 

THREAT (1, I) =DTHREAT (1, I) 

THREAT (2,1) =DTHREAT (2,1) 

THREAT (3,1) =DTHREAT (3,1) 

THREAT (4,1) =DTHREAT (4,1) 

600 CONTINUE 

Finished 

RETURN 

END 
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0001 c D 180 - 30550-4 

0002 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0003 C 

0004 SUBROUTINE DATA 

0005 C 

0006 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0007 C 

0008 C 

0009 C Data reads in the supertab universal file and places the 

0010 C element and nodal data in the global element array. 

0011 C 

0012 C 

0013 C note: for variables in common block see main listing 

0014 C 

0015 C variable list 

0016 C 

0017 C dline = character string representing all the data contained 

0018 C on one line of the supertab universal file 

0019 C eid = element identification 

0020 C ig = grid id 

0021 C igk = id of grid point in location k 

0022 C ival = value contained in the first 6 spaces of dline 

0023 C igl = id for element grid point 1 

0024 C ig2 = " " ” " » 2 

0025 C ig3 = " ” ” ” " 3 

0026 C k = grid location pointer 

0027 C kh = largest value of k 

0028 C kl == smallest value of k 

0029 C kp = previous value of k 

0030 C ngrids = number of grids 

0031 C pid = element property id 

0032 C X = global x position , Meters 

0033 C y = » y ” / ” 

0034 C z = " z ” , ” 

0035 C 

0036 C array list 

0037 C 

0038 C grid = working array containing grid point locations in global 

0039 C coordinate system 

0040 C idg = working array containing grid point id's 

0041 C 

0042 C 

0043 C 

004 4 CHARACTER* 9 0 DLINE 

0045 C 

0046 INCLUDE ' COMMONl . BLK * 

0065 C 

0066 DIMENSION GRID (3, ISIZE*3) 

0067 C 

0068 INTEGER*4 IGl, IG2, IG3, IG, IGK, IVAL, IDG(ISIZE) , K, KH, KL, EID, P ID 

0069 C 

0070 C Intialize counters 

0071 C 

0072 NELM = 0 

0073 NGRIDS = 0 

0074 C 

0075 C Read line of data from Supertab file , if end of file is reached 

0076 C continue with processing 

0077 C 

0078 10 READ ( 2,20,END=100 )DLINE 

0079 20 FORMAT ( A ) 

0080 C 

0081 C Read first 6 characters of dline as an integer , if error then read 
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0082 C next line 

0083 C 

0084 READ (DLINE ( 1 : 6 ) , 30 , ERR=10 ) IVAL 

0085 30 FORMAT (BN, 16) 

0086 C 

0087 C Check, if ival = -1 , which indicates the start of a dataset, if not 

0088 C read another line until -1 is found 

0089 C 

0090 IF ( IVAL.NE.~1 ) GO TO 10 

0091 C 

0092 C -1 found , read next line of data, then read first six characters 

0093 C if error on read, then read until end of dataset is found 

0094 C 

0095 READ ( 2,20 ) DLINE 

0096 READ ( DLINE (1 : 6) , 30, ERR=90 ) IVAL 

0097 C 

0098 C First 6 characters are the dataset id, check if this is the nodal data 

0099 C 

0100 IF ( IVAL, EQ. 15 ) THEN 

0101 C 

0102 C This is the nodal data , read data and look for the -1 

0103 C that indicates the end the dataset has been reached 

0104 C 

0105 40 READ ( 2,20 ) DLINE 

0106 READ ( DLINE (1 : 6) , 30 ) IVAL 

0107 C 

0108 C Check if bottom of dataset , if so start looking for next dataset 

0109 C 

0110 IF ( IVAL.EQ.-l ) GO TO 10 

0111 C 

0112 C If not read grid id and location 

0113 C 

0114 READ { DLINE(1:90) ,50 )IG,X,Y,Z 

0115 50 FORMAT ( BN, 110 , 30X, 3E13 . 5 ) 

0116 C 

0117 C Increment grid counter 

0118 C 

0119 NGRIDS=NGRIDS+1 

0120 C 

0121 C Place data in appropriate array 

0122 C 

0123 IDG (NGRIDS) =IG 

0124 GRID (1, NGRIDS) =X 

0125 GRID (2, NGRIDS) =Y 

0126 GRID (3, NGRIDS) =Z 

0127 C 

0128 C Read next data line 

0129 C 

0130 GO TO 40 

0131 C 

0132 ELSE 

0133 C 

0134 C Is this the element dataset ? 

0135 C 

0136 IF ( IVAL. EQ. 71 ) THEN 

0137 C 

0138 C It is the element, read next line of data, coonstantly checking for 

0139 C end of dataset 

0140 C 

0141 60 READ ( 2,20 ) DLINE 

0142 READ ( DLINE (1 : 6) , 30 ) IVAL 

0143 IF ( IVAL.EQ.~1 ) GO TO 10 

0144 C 
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0145 C Read eid and pid 

0146 C 

0147 READ ( DLINE (1 : 90) , 70 ) EID, PID 

0148 70 FORMAT ( BN, 110, 20X, 110 ) 

0149 C 

0150 C Read next line, and read igl,ig2,ig3 off it 

0151 C 

0152 READ ( 2,20 ) DLINE 

0153 READ ( DLINE (1 : 90) , 80 )IG1,IG2,IG3 

0154 80 FORMAT ( BN, 3110 ) 

0155 C 

0156 C Increment element counter 

0157 C 

0158 NELM=NELM+1 

0159 C 

0160 C Place data in appropriate array 

0161 C 

0162 ID (1,NELM)=EID 

0163 ID (2,NELM)=PID 

0164 ID (3,NELM)=IG1 

0165 ID (4, NELM) =IG2 

0166 ID (5,NELM) =IG3 

0167 C 

0168 C Read in next data line 

0169 C 

0170 GO TO 60 

0171 C 

0172 ELSE 

0173 C 

0174 C It isn't the nodal or element dataset , read lines unitl bottom of 

0175 C dataset is found, or end of file is found , if error on read read next 

0176 C line 

0177 C 

0178 90 READ ( 2,20 )DLINE 

0179 FlEAD ( DLINE (1 ; 6) , 30,ERR=90,END=100 ) IVAL 

0180 IF ( IVAL.NE.-l ) GO TO 90 

0181 GO TO 10 

0182 C 

0183 END IF 

0184 C 

0185 END IF 

0186 C 

0187 C Check if element data was read in, if not write error message and stop 

0188 C 

0189 100 IF ( NELM.EQ.O ) THEN 

0190 WRITE ( 6,110 ) 

0191 110 FORMAT ( /IX, 'NO ELEMENT DATA WAS READ IN ' ) 

0192 STOP 

0193 END IF 

0194 C 

0195 C Check if nodal data was read in , if not write error message and stop 

0196 C 

0197 IF ( NGRIDS.EQ.O ) THEN 

0198 WRITE ( 6,120 ) 

0199 120 FORMAT ( /IX, 'NO NODAL DATA WAS READ IN ' ) 

0200 STOP 

0201 END IF 

0202 C 

0203 C Place information in global element array 

0204 C 

0205 C Loop thru all the elements 

0206 C 

0207 DO 400 1=1, NELM 
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0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 


C 

C Loop thru 3 grid points 
C 

DO 300 J=l,3 
C 

C Initialize grid point location pointers 
C 

KH=NGRIDS+1 

KL=1 

KP=0 

C 

C Get grid id 
C 

IG=ID( (3+(J“l) ) ,1) 

C 

C Make guess of grid location using binary search technique 
C 

210 K=(KL+KH) /2 

C 

C Check if same location is being guessed again, if it is write 
C error message and stop 
C 

IF ( KP.EQ.K ) THEN 
WRITE ( 6,220 ) IG 

220 FORMAT (/IX, 'DATA NOT FOUND FOR NODE * , 15 ) 

STOP 
END IF 
C 

C Get grid id for location k 
C 

IGK=IDG (K) 

C 

C If this is the correct location put data in array element 
C 

IF ( IGK.EQ.IG ) THEN 
C 

C Loop thru 3 coordinates 
C 

DO 250 L=l,3 

ELEMENT ( (L+(J-1) *3) , I) =GRID (L,K) 

250 CONTINUE 

C 

C If not , reset location limits , guess again 
C 

ELSE 

C 

C Guess too low in list , reset lower bound 
C 

IF ( IGK.LT.IG ) KL=K 
C 

C Guess too high in list , reset upper bound 
C 

IF ( IGK.GT.IG ) KH=K 
C 

C Reset holder 
C 

KP=K 

C 

C Guess again 
C 

GO TO 210 


C 


END IF 
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0271 

C 


0272 

C 

Next grid point 

0273 

C 


0274 


300 CONTINUE 

0275 

C 


0276 

C 

Next element 

0277 

C 


0278 


400 CONTINUE 

0279 

C 


0280 

C 


0281 

C 

finished return 

0282 

C 


0283 

C 


0284 


RETURN 

0285 

C 


0286 


END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 


^ D 180-30550-4 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE NORMAL 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Normal calculates the unit normal vector for each element and stores 
C it in the element array. 

C 

C variable list 
C 

C an = i component of the normal vector 

C al2 = " " " " 12 ” 

C al3 = " " " ” 13 

C bn = j component of the normal vector 

C bl2 = ” ” " " 12 

C bl3 = " ” ” ” 13 

C cn = k component of the normal vector 

C cl2 = ” ” " *’ 12 ” 

C cl3 = ” ” ” ” 13 

C r = length of the normal vector 

C 


0025 C 

0026 C 

0027 INCLUDE ’ COMMONl . BLK * 

0046 C 

0047 C Calculate unit normal vector for each element 

0048 C 

0049 DO 100 I=1,NELM 

0050 C 

0051 C Calculate vector from grid point 1 to grid point 2 

0052 C 

0053 A12=ELEMENT (4,1) -ELEMENT (1,1) 

0054 B12=ELEMENT (5,1) -ELEMENT (2,1) 

0055 C12=ELEMENT (6, I) -ELEMENT (3, I) 

0056 C 

0057 C Calculate vector from grid point 1 to grid point 3 

0058 C 

0059 A13=ELEMENT (7, I) -ELEMENT (1, I) 

0060 B13=ELEMENT (8, I) -ELEMENT (2,1) 

0061 C13=ELEMENT(9, I) -ELEMENT (3, I) 

0062 C 

0063 C Calculate the normal vector, it is equal to the cross product of vetor 

0064 C 12 and vector 13 

0065 C 

0066 AN=(B12*C13) -(C12*B13) 

0067 BN= (C12*A13) - (A12*C13) 

0068 CN=(A12*B13) -(B12*A13) 

0069 C 

0070 C Calculate the length of the normal vector 

0071 C 

0072 R=SQRT (AN**2+BN**2+CN**2 ) 

0073 C 

0074 C The unit normal vector is equal to the normal vector divided by it*s 

0075 C length, place data in element array 

0076 C 

0077 ELEMENT (10, I) =AN/R 

0078 ELEMENT (11, I) =BN/R 

0079 ELEMENT (12, I)=CN/R 

0080 C 

0081 C Next element 
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0082 

0083 

C 

100 CONTINUE 

0084 

C 


0085 

C 

Return 

0086 

0087 

C 

RETURN 

0088 

0089 

C 

END 
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0026 

0045 
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0055 
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0058 

0059 

0060 
0061 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 
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0075 
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0078 

0079 

0080 
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C 

cccccccccccccccccccccccccccccccccccvccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE CENTROID 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C Centroid determines the location of the centroid for each element ^ 
C and stores it in the element array, 

C 

C Variable list 
C 

C xc = X location of the 

C yc = y location of the 

C zc = z location of the 

C 

C array list 
C 

C X = array containing x 
C y = " ” y 

c z = " ” z 

C 

c 

DIMENSION X(3) , Y (3) , Z (3) 

C 

INCLUDE ' COMMONl . BLK * 

C 

C Determine c.g. for each element 
C 

DO 100 I=1,NELM 
C 

C Get grid point data from element array 
C 

DO 50 J=l,3 
C 

X(J)-ELEMENT{ (l+(J-'l) *3) ,1) 

Y(J)=ELEMENT{ (2+(J-l) *3) ,1) 

Z (J) ^ELEMENT ( (3+(J-l) *3) ,1) 

C 

C Next grid point 
C 

50 CONTINUE 
C 

C C.G. location is average of 3 grid point locations 
C 

XC=(X(1)+X(2)+X(3) ) /3.0 
YC=(Y(1)+Y(2)+Y(3))/3.0 
ZC= (Z (1) +Z (2) +Z (3) ) /3 .0 

c 

C Put data in element array 
C 

ELEMENT (13, I) =XC 
ELEMENT (14, I) =YC 
ELEMENT (15, I)=ZC 
C 

C Next element 
C 

100 CONTINUE 
C 

C Return 
C 

RETURN 
C 


centroid 

centroid 

centroid 


values of the grid points 
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END 
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0045 
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Variable list 

atri = surface area of the element r sq-meters 
dl = intermediate variable 
d2 = 
d3 = 

Array list 

X = working array containing the grid point x coordinates 

y — ff H M ft ft tl y ft 


c 
c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

SUBROUTINE AREA 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

C Area calculates the surface area of each element . 

C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

Q 2 = ” " " ” ” ” z '* 

c 

c 

INCLUDE ’ COMMONl , BLK ’ 

C 

DIMENSION X{3) ,Y(3) ,Z(3) 

For each element calculate the surface area. 

DO 100 I=1,NELM 

Get the location of the 3 grid points in global coordinates. 

DO 50 J=l,3 

X( J)=ELEMENT ( (1+ (J-1) *3) , I) 

Y(J)=ELEMENT( (2+(J-l) *3) , I) 

Z(J)=ELEMENT( (3+ (J-1) *3) ,1) 

50 CONTINUE 

Calculate the surface area using the equation from the CRC Math Handbook: 
D1=Y(1) * (Z (2) -Z (3) ) -Z (1) * (Y(2) -Y(3) ) + (Y(2) *Z (3) -Z (2) *Y(3) ) 

D2=Z (1) * (X (2) -X (3) ) -X(l) * (Z (2) -Z (3) ) + (Z (2) *X (3) -X (2) *Z (3) ) 
D3=X(1)*(Y(2)-Y(3) )-Y(l)*(X(2)-X(3) ) + {X(2)*Y(3)-Y(2)*X(3)) 

ATRI = 0.50 * SQRT( Dl**2 + D2**2 + D3**2) 

Save the area in the element array 
ELEMENT (17,1) =ATRI 


C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 


C Next element 
C 

100 CONTINUE 
C 
C 

RETURN 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE RADIUS 


Variable list 


a(k) = component 
b(k) = component 
c{lc) = component 
i = counter from 
j = counter from 
k = counter from 
1 = counter from 
r(i) 
rmax 
x( j) 

y(j) 

z ( j) 
xc = 
yc = 
zc = 


to grid 
to grid 
to grid 


of element i 
of element i 
of element i 


CCCCC6CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C 

C Radius calculates the maximum radius that will contain the three grid 
C points of each triangular element , with the center located at the 
C centroid. 

C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 


of vector from c.g. 
of vector from c.g. 
of vector from c.g. 
thru number of elements (nelm) 
thru 3 nodes per element 
thru 3 components per vector 
thru 3 vectors per element 
length of vectors from c.g. to grid 

maximum radius (sc[uared) that contains all three nodes 
X coordinate of Ith element grid j 

y coordinate of Ith element grid j 

z coordinate of Ith element grid j 

X .coordinate of Ith element c.g. 
y coordinate of Ith element c.g. 
z coordinate of Ith element c.g. 


INCLUDE * COMMONl . BLK ' 


C 

C 

C 

C 

C 


C 

C 

C 

C 


C 

C 

C 

C 

C 


C 

C 


DIMENSION A(3),B(3),C(3),R(3),X(3),Y(3),Z(3) 
DO 10 1=1, NELM 


Read coordinates of c.g. of element I 

XC=ELEMENT (13, I) 

YC=ELEMENT (14, I) 

ZC=ELEMENT (15, I) 

DO 20 J=l,3 

Read coordinates of three grids of element I 

X ( J) ^ELEMENT ( (1+(J-1) *3) , I) 
Y(J)=ELEMENT( (2+ (J-1) *3) , I) 

Z (J)=ELEMENT{ (3+ (J-1) *3) ,1) 

20 CONTINUE 

DO 30 K=l,3 

Calculate vector from c.g. to each grid 

A(K)=XC“X(K) 

B(K)=YC-Y(K) 

C(K)=ZC-Z(K) 

30 CONTINUE 


B - 29 



D 180-30550-4 

0082 DO 40 L=l,3 

0083 C 

0084 C Calculate length (squared) of each vector from c.g. to each grid 

0085 C 

0086 R(L)=A(L) **2+B(L) **2+C(L) **2 

0087 C 

0088 40 CONTINUE 

0089 C 

0090 C Determine length of longest vector which will then be radius 

0091 C 

0092 RMAX=AMAX1 ( R ( 1) , R (2 ) , R (3) ) 

0093 C 

0094 ELEMENT ( 16,1 ) =RMAX 

0095 C 

0096 10 CONTINUE 

0097 C 

0098 C 

0099 RETURN 

0100 C 

0101 END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE BACKSIDE 


Variable list 


a 

an 

b 

bn 

c 

cn 

dp 


= 1 


component of the unit threat vector 

normal " 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Backside eliminates the elements not exposed to the relative threat 

C by virtue of the fact that their unit normal vector does not point 

C at the threat. It also generates the list of potentially exposed 

C elements . 

C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

INCLUDE ’ COMMONl , BLK * 


= D 


= k 


threat " 
normal ” 
threat ” 
normal " 

dot product of the unit normal vector and the unit threat 
vector 

ipx = element location in row 1 of the lEXP array 

— n II It II 2 ” ” ” ” 

phi = relative threat angle measured from the Earth normal , radians 
theta = relative threat angle measured from the station velocity 
vector in the horizontal plane, radians 


C 

C For the first angle intialize the lEL, lEXP, & POINT arrays and 
C the NPE counter 
C 

IF ( IT.NE. 1 ) GO TO 20 
C 

DO 10 I=1,NELM 
C 

IEL(1, I)=.TRUE. 

IEL{2, I)=.TRUE. 
lEXP (1, I)=0 
lEXP (2, I) =0 
POINT (1, I) =0 
POINT (2,1) =0 
C 

10 CONTINUE 
C 

NPE=0 

C 

C Get the threat angles from the threat array 
C 

20 THETA=THREAT (1, IT) 

PHI=THREAT (2, IT) 

C 

C Calculate the unit vector that points at the threat direction, 

C ( threat vector ) 

C 

A=SIN (PHI) *COS (THETA) 

B=SIN(PHI) *SIN (THETA) 

C=COS (PHI) 
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0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 


C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


For each element r check if it is a backside element 
DO 100 I=1,NELM 

Get the unit normal vector from the element array 

AN=ELEMENT (10^ I) 

BN=ELEMENT (11, I) 

CN=ELEMENT (12,1) 

Calculate the dot product of the unit normal vector and the unit 
threat vector 

DP=A*AN+B*BN+C*CN 

Save the dot product in the transform array 
TRANSFORM (1,1) =DP 
For the first angle case 
IF ( IT.EQ.l ) THEN 

If the dot product is < 0 , then the element is a backside element 
IF (DP. LE. 0.01) THEN 

It is backside , change lEL to false 

IEL(1, I)=.FALSE. 

IEL(2, I)=. FALSE. 

ELSE 

It is potentially exposed , increase NPE by 1 and place I in lEXP 
location NPE 

NPE=NPE+1 
lEXP (1,NPE)=I 
lEXP (2, NPE) =I 

END IF 

For all other cases , maintain the relative order of the lEXP list 
by adding exposed elements at the bottom and removing backside elements 
and shifting the list up . This will decrease the time required for 
sorting later in the code. 

ELSE 

If the dot product is < 0 then the element is a backside element 
IF(DP.LE.0,01)THEN 

It is a backside element , check if it was one in the previous case 
IF ( IEL(1,I) ) THEN 

It was not a backside element in the previous case, change lEL to 
false 


lEL (1, I) =. FALSE. 
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0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 
0207 


C 

C 

C 

C 

C 

C 


C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


IEL(2, I)=. FALSE, 

Now, remove element I from the lEXP list , the list is not in order 


Get element I location in lEXP from the pointer array 

IPX=POINT (1, I) 

IPY=POINT (2,1) 

Remove element I and shift the list 

Shift the X list first, and reset the pointer list 

DO 40 J=IPX,NPE 

lEXP (1, J) =IEXP (1, (Jtl) ) 

POINT ( 1 , lEXP ( 1 , J+1 ) ) = J 

40 CONTINUE 

Shift the y list, and reset the pointer list 

DO 45 J=IPY,NPE 

lEXP (2, J)=IEXP (2, (J+1) ) 

POINT (2, lEXP (2, J+1) ) =J 

45 CONTINUE 

Reduce the number of potentially exposed elements by 1 
NPE^NPE-1 

Reset pointer for the removed element to 0 

POINT (1, I) =0 
POINT (2,1) =0 

END IF 

The element was a backside element in the previous case , 
no need to do anything 

ELSE 

The element is potentially exposed, check if it was exposed in the 
previous case 

IF ( IEL(1,I) ) THEN 

It was exposed in the previous case , make lEL true 

IEL(1, I)=,TRUE. 

IEL(2, I) =.TRUE. 

ELSE 

It wasn^t exposed previously, change lEL to true, increase NPE by 
1, add element I to lEXP at location NPE, and save location in the 
pointer array 


IEL(1,I)=.TRUE. 
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0208 IEL(2, I)=.TRUE. 

0209 C 

0210 NPE=NPE+1 

0211 C 

0212 lEXP (1,NPE) =I 

0213 lEXP (2,NPE) =I 

0214 C 

0215 POINTd, I)=NPE 

0216 POINT(2, I)=NPE 

0217 C 

0218 END IF 

0219 C 

0220 END IF 

0221 C 

0222 END IF 

0223 C 

0224 C Next element 

0225 C 

0226 100 CONTINUE 

0227 C 

0228 C Check if niamber of exposed elements is 0 , if so write message to screen 

0229 C 

0230 IF ( NPE .EQ. 0 ) THEN 

0231 THETA=TR*180 . /3 . 14159 

0232 WRITE ( 6 , 200 ) IT 

0233 200 FORMAT ( /IX, 'NO EXPOSED ELEMENTS FOR THREAT '14 ) 

0234 END IF 

0235 C 

0236 C Check if number of exposed elements is > than the number of elements 

0237 C if so , write error message and stop 

0238 C 

0239 IF ( NPE .GT. NELM ) THEN 

0240 WRITE ( 6 , 300 ) NPE, NELM 

0241 300 FORMAT ( /IX, 'NUMBER OF EXPOSED ELEMENTS = ',15,/ 

0242 . /IX, 'NUMBER OF ELEMENTS = ',15 ) 

0243 STOP 

0244 END IF 

0245 C 

0246 C Return 

0247 C 

0248 RETURN 

0249 C 

0250 END 
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C 

CCCCC6CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

SUBROUTINE TRANS 
C 

CCCCC6CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c 

C Trans transforms and projects the c.g. and grid points onto a plane 
C orthogonal to the relative threat vector. 

C 

C 

C note: for variables in the common block refer to the main listing for 
C definetion 

C 

C Variable list 
C 

C cp = cosine of phi 

C ct = cosine of theta 

C sp = sin of phi 

C St = sin of theta 

C phi * relative threat angle measured from the Earth normal, radians 
C theta = realative threat angle measured from the station velocity 
C vector in the horizontal plane, radians 

C xc = element c.g. x coordinate 

C yc = element c.g. y coordinate 

C zc = element c.g. z coordinate 

C xtc = c.g. X coordinate transformed to orthogonal plane 

C ytc = c.g. y coordinate transformed to orthogonal plane 

C ztc = c.g. z coordinate transformed to orthogonal plane 

C x(j) = X coordinate of jth grid of element i 

C y(j) = y coordinate of jth grid of element i 

C z(j) = z coordinate of jth grid of element i 

C 
C 
C 

INCLUDE ' COMMONl . BLK ' 

C 

C 

DIMENSION X(3),Y{3),Z(3),XT(3),YT(3),ZT(3) 

C 

C Get theta and phi from the threat array 
C 

THETA=THREAT ( 1 , IT) 

PHI=THREAT (2, IT) 

C 

C Calculate the cosine and sin of theta and phi 
C 

CT=COS (THETA) 

ST=SIN (THETA) 

CP=COS (PHI) 

SP=SIN(PHI) 

C 

C Evaluate the potentially exposed elements 
C 

DO 10 1=1, NPE 
C 

C Transform coordinates of c.g, of element onto orthogonal plane 
C 

XC=ELEMENT ( 13,IEXP(1,I) ) 

YC=ELEMENT( 14,IEXP(1,I) ) 

ZC=ELEMENT ( 15,IEXP(1,I) ) 

C 
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0082 



XCT = XC*SP*CT + YC*SP*ST + ZC*CP 

0083 



YCT =-XC*ST + YC*CT 

0084 



ZCT =-XC*CP*CT - YC*CP*ST + ZC*SP 

0085 

C 



0086 



TRANSFORM ( 2,IEXP(1,I) ) = XCT 

0087 



TRANSFORM( 3,IEXP(1,I) ) = YCT 

0088 



TRANSFORM { 4,IEXP(1,I) ) = ZCT 

0089 

C 



0090 



DO 20 J=l,3 ■ 

0091 

C 



0092 

C 

Transform grid coordinates onto the orthogonal plane 

0093 

C 



0094 



X(J) = ELEMENT( (1+(J-1)*3) , IEXP(1,I) ) 

0095 



Y(J) = ELEMENT( (2+(J-l)*3) , IEXP(1,I) ) 

0096 



Z(J) = ELEMENT( (3+(J-l)*3) , IEXP(1,I) ) 

0097 

C 



0098 



XT(J)= XCT 

0099 



YT(J)= -X(J)*ST + Y(J)*CT 

0100 



ZT(J)= -X(J)*CP*CT - Y(J)*CP*ST + Z ( J) *SP 

0101 

C 



0102 


20 

CONTINUE 

0103 

C 



0104 



DO 30 K=l,3 

0105 

C 



0106 

C 

Store transformed grid coordinates into transform array 

0107 

C 



0108 



TRANSFORM( <5+ (K-1) *3) , lEXP (1, I) ) =XT (K) 

0109 



TRANSFORM( (6+ (K-1) *3) , lEXP (1, I) ) =YT (K) 

0110 



TRANSFORM( (7+ (K-1) *3) , lEXP (1, I) ) =ZT (K) 

0111 

C 



0112 

C 



0113 


30 

CONTINUE 

0114 

C 



0115 

c 



0116 


10 

CONTINUE 

0117 

c 



0118 



RETURN 

0119 

c 



0120 



END 
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C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE QSORT ( I VAR ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C Sort Reals 

C 

C IMPLEMENTATION OF WIRTH ’ S DOCUMENTED QUICKSORT ALGORITHM. 

C 

C GIVEN AN ARRAY OF REAL VALUES AND AN ARRAY OF POINTERS 

C WHICH POINT TO THE VALUES^ REARRANGE THE POINTERS SUCH THAT 

C THEY POINT TO VALUES OF INCREASING VALUE 

C BASED ON VALUES IN POINT. 

C 

C INPUT 

C 

C VALUES ARRAY OF ELEMENT CG X COORDINATES TO BE SORTED 

C lEXP ARRAY OF ELEMENT ID'S IN DECENDING ORDER 

C NPE THE LAST POINTER IS AT POSITION POINT (NPE) 

C 

C OUTPUT 

C 

C lEXP ARRAY OF ELEMENT ID'S SORTED ACCORDING TO 

C ORDER OF ARRAY POINT (NPE) 

C THEY POINT TO INCREASING VALUES OF 

C CG X COORDINATES OF ELEMENTS 

C 

C VARIABLES 

C 

C TEMP 

C 

C IBEGIN 

C STACK 

C 
C 

INCLUDE ' COMMONl . BLK ' 

C 

INTEGER*2 IBEGIN, IPOINT, II, JJ 

INTEGER*2 POINTER ( ISIZE) , STACK(2, 15) , TEMP (ISIZE) 

INTEGER*2 I,J,L,R, S,W 
C 

IBEGIN = 1 
C 

C INITIALIZE ARRAY POINTER FROM 1 TO NPE 

C 

DO 5 I = 1, NPE 
5 POINTER ( I) =I 
C 

CD WRITE (ALTOUT, 10) IBEGIN, NPE, (POINTER ( I ), I=IBEGIN, NPE) 

CDIO FORMATC IAC7SI , UNSORTED POINTER, IBEGIN, NPE ',2l5/(' *,10l4)) 

S=1 

STACK (1, 1) =IBEGIN 
STACK (2, 1) =NPE 
C 

C TAKE FROM TOP OF STACK 

C 

40 CONTINUE 

L=STACK(1, S) 

R=STACK(2,S) 

S=S-1 
C 


ARRAY TO TEMPORARILY STORE ARRAY lEXP WHEN SORTING 
lEXP BASED ON VALUES IN ARRAY POINT 
THE FIRST POINTER IS AT POSITION POINT ( IBEGIN) 
ARRAY FOR SCRATCH USE ( MUST BE NPE-IBEGIN+1 
WORDS LONG) 
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SPLIT KEY(L) KEY(R) 

0083 

C 


0084 

80 

CONTINUE 

0085 


I=L 

0086 


J=R 

0087 


IPOINT=POINTER( (L+R) /2) 

0088 

C 


0089 

120 

CONTINUE 

0090 


II=POINTER(I) 

0091 


IF (TRANSFORM (IVAR, lEXP ( (IVAR-1) , II) ) .GT. 

0092 


TRANSFORM ( IVAR, lEXP ( (IVAR-1) , IPOINT) ) ) THEN 

0093 

C 


0094 


1=1 + 1 

0095 


GO TO 120 

0096 


END IF 

0097 

C 


0098 

160 

CONTINUE 

0099 


JJ=POINTER(J) 

0100 


IF (TRANSFORM (IVAR, lEXP ( (IVAR-1) , IPOINT) ) .GT. 

0101 


TRANSFORM ( IVAR, lEXP ( (IVAR-1) ,JJ) ) ) THEN 

0102 

C 


0103 


J=J-1 

0104 


GO TO 160 

0105 


END IF 

0106 

C 


0107 


IF(I.LE.J) THEN 

0108 


W=POINTER(I) 

0109 


POINTER (I) “POINTER (J) 

0110 


POINTER (J) =W 

0111 


1=1 + 1 

0112 


j=j-i 

0113 


IF(I.LE.J) GO TO 120 

0114 


END IF 

0115 

C 


0116 


IF (J-L.LT.R-I) THEN 

0117 


IF(I.LT.R) THEN 

0118 

c 


0119 

c 

STACK REQUEST FOR SORTING RIGHT PARTITION 

0120 

c 


0121 


S=S+1 

0122 


STACK (1,S)=I 

0123 


STACK(2, S) =R 

0124 

c 


0125 


END IF 

0126 

c 


0127 

c 

CONTINUE SORTING LEFT PARTITION 

0128 

c 


0129 


II 

0130 

c 


0131 


ELSE 

0132 

c 


0133 


IF(L.LT.J) THEN 

0134 

c 


0135 

c 

STACK REQUEST FOR SORTING LEFT PARTITION 

0136 

c 


0137 


S=S+1 

0138 


STACK (1,S)=L 

0139 


STACK(2,S)=J 

0140 


END IF 

0141 

c 


0142 

c 

CONTINUE SORTING RIGHT PARTITION 

0143 

c 


0144 


L=I 
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0145 


END IF 

0146 

C 


0147 


IF(L.LT.R) GO TO 80 

0148 

C 


0149 


IF(S.NE.O) GO TO 40 

0150 

C 


0151 

CD 

WRITE (ALTOUT, 500) IBEGIN,NPE, (POINTER (I) , I=IBEGIN, NPE) 

0152 

CD500 

FORMAT (' IAC7 SI, SORTED POINTER, IBEGIN, NPE ',2I5/C ',1014)) 

0153 

C 


0154 

C 

STORE ARRAY lEXP TEMPORARILY IN ARRAY TEMP 

0155 

C 


0156 


DO 180 1=1, NPE 

0157 

180 

TEMP (I) = lEXP ( (IVAR-1) , I) 

0158 

C 


0159 

C 

SORT ARRAY lEXP BASED ON VALUES IN ARRAY POINTER 

0160 

C 


0161 


DO 200 1=1, NPE 

0162 

C 


0163 


INDEX = POINTER (I) 

0164 


lEXP ( (IVAR-1) , I) = TEMP (INDEX) 

0165 

C 


0166 

200 

CONTINUE 

0167 

C 


0168 


RETURN 

0169 

C 


0170 


END 
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0002 C 

0003 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 SUBROUTINE SHADOW 

0006 C 

0007 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0008 C 

0009 C Shadow determines which elements are exuposed to the current ' threat . 

0010 C It only considers the elements that were not eliminated by the 

0011 C BACKSIDE subroutine. 

0012 C 

0013 C Shadow works with the sorted lists contained in the lEXP array. These 

0014 C lists were sorted on the transformed x & y distances of the element 

0015 C centroids from the threat. An element can be shadowed by another 

0016 C element only if it lies below it in the x sorted list. As a crude 

0017 C test, it ^s centroid must also lay within the circle enclosing the 

0018 C shadowing element. The origin of this circle is located at the 

0019 C centroid of the shadowing element. This test is accounted for by 

0020 C evaluating the element’s position in the y sorted list with respect to 

0021 C the shadowing elements position. If the element passes this test, a 

0022 C precise test is performed to determine if the element’s centroid lies 

0023 C within the shadowing element’s boundaries. These boundaries have been 

0024 C projected onto the plane normal to the threat. 

0025 C 

0026 C 

0027 C note: for variables in the common block refer to main listing for 

0028 C definetion 

0029 C 

0030 C Variable list 

0031 C 

0032 C direction = logical variable 0used to deterrmine which direction to 

0033 C move in the y sorted list 

0034 C el = element number of the potentially shadowed element 

0035 C icr = interger value of rt/srmax 

0036 C icy = " ” ” yd/srmax 

0037 C ipx = position in the x sorted list of the shadowing element 


0038 

C ipxel = 

ff 

If ff 11 

If 

11 

II 

” pot . shadowed element 

0039 

C ipy 

If 

If fl y 

ff 

11 

ft 

” shadowing element 


0040 C itest = element number of the shadowing element 

0041 C pos = current position in the y sorted list 

0042 C rt * square of the distance from the shadowing elements centroid to 

0043 C the potentially shadowed elements centroid 

0044 C srmax “ square of the radius of the circle enclosing the shadowing 

0045 C element with the origin at the centroid 

0046 C yd * square of the y distance from the shadowing elements centroid 

0047 C to the potentially shadowed elements centroid 

0048 C yc =* transformed y coordinate of the shadowing elements centroid 

0049 C yl = " ” " " ” ” " grid point 1 

0050 C y2 = ” ” ” II ft If II II II 2 

0051 C y3 = " ” " II ft If If II It 3 

0052 C y4 = ” ” " " ” potentially shadowed elements 

0053 C centroid 

0054 C zc =* transformed z coordinate of the shadowing elements centroid 

0055 C zl - ” ” ” ” ” " » grid point 1 

0056 C z2 =» " ” *’ If fi If If If II 2 

0057 C z3 * " ” ” ” ” " ” " ” 3 

0058 C z4 = ” ” ” ” ” potentially shadowed elements 

0059 C centroid 

0060 C 

0061 C 

0062 C 

0063 C 
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0064 

0065 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


INCLUDE * COMMONl . BLK * 

INTEGER*2 ICR, ICY, IPX, IPXEL, IPY, ITEST, EL, POS 

LOGICAL DIRECTION, INTRI 

DIRECTION=.TRUE. 

Starting with the first element in the x sorted list determine if 
it shades any other elements . 

DO 100 1=1, NPE 

Get the shadowing element 

ITEST=IEXP (1,1) 


Get the centroid location and the square of the maximum radius. 

YC=TRANSFORM ( 3 , ITEST) 

ZC=TRANSFORM(4, ITEST) 

SRMAX=ELEMENT(16, ITEST) 

Determine the shadowing elements location in the x&y sorted list . 

IPX=POINT (1, ITEST) 

IPY=P'OINT (2, ITEST) 

Begin evaluating the elements in the y sorted list , starting at 
the next element after the shadowing element. 

POS=IPY+l 

Determine the potentially shadowed element . 

20 EL=IEXP (2,POS) 

Determine the potentially shadowed element's location in the x 
sorted list . 

IPXEL=POINT(l,EL) 

Check if the potentially shadowed element is below the shadowing 
element in the x sorted list. If not get the next potentially 
shadowed element . 

IF ( IPXEL .GT. IPX ) THEN 

Check if the potentially shadowed element is exposed. If not get the 
next potentially shadowed element . 

IF ( IEL(2,EL) ) THEN 

Since the element is exposed , get it's centroid location. 

Y4=TRANSFORM (3, EL) 

Z4=TRANSFORM ( 4, EL) 

Determine the y distance from the shadowing elements centroid to the 
potentially shadowed elements centroid. 
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0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 
0207 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


YD=(YC-Y4) **2 

Calculate the integer value of the distance to the radius ratio. 
ICY=YD/SRMAX 

Using the integer of the ratio , determine if the element is outside 
of radius of the shadowing element in the y direction. If so, there is 
no need to go further through the y sorted list in the present 
direction. Either switch directions and get next element or get next 
shadowing element , 

IF ( ICY.NE.O ) GO TO 40 

Determine the distance from the elements centroid to the shadowing 
elements centroid and square it . 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


c 

c 


RT=YD+{ZC-Z4) **2 

Determine the integer value of the distance to maximum radius ratio. 
ICR=RT/SRMAX 

Use the integer value to determine if the element is inside the radius. 
If not get the next element. 

IF ( ICR .EQ. 0 ) THEN 

The elements centroid is inside the maximum radius, perform the 
precision test. First get the shadowing elements grid points location. 

Yl=TRANSFORM(6, ITEST) 

Zl=TRANSFORM{7, ITEST) 

Y2=TRANSFORM(9, ITEST) 

Z2=TRANSFORM(10, ITEST) 

Y3=TRANSFORM(12, ITEST) 

Z3=TRANSFORM(13, ITEST) 

Set the exposure logical flag equal to the negative of the logical 
function test for inside the triangle. 

IEL(2,EL)=.NOT.INTRI (Yl, Zl, Y2, Z2, Y3, Z3, Y4, Z4) 

END IF 

END IF 

END IF 

Increment the y list position based on which direction we are 
currently moving. Check that we do not point to a location outside 
the list. 

IF ( DIRECTION ) THEN 
POS=POS+l 

IF ( POS.GT.NPE ) GO TO 40 
ELSE 

POS=POS-l 
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0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IF ( POS.lt, 1 ) go to 40 
END IF 

Get the next potentially shaded element. 

GO TO 20 

Change the direction and continue with the new starting positon. 
Unless we have gone in both directions. Then get next shadowing 
element . 

40 IF ( DIRECTION ) THEN 

DIRECT ION= . FALSE . 

POS=IPY-l 

IF ( POS .LT. 1 ) THEN 
DIRECTION=.TRUE. 

GO TO 100 
END IF 
GO TO 20 
ELSE 

DIRECTION=.TRUE. 

END IF 

Get the next shadowing element . 

100 CONTINUE 
Finished 
RETURN 


C 


END 
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^ D180-30550-4 

c 

c 

LOGICAL FUNCTION INTRI(AX,AY, BX, BY, CX, CY, PX, PY) 

C 

C Return 1 if poinit P is inside triangle or 0 if outside. 

C Triangle has vertices at A, B and C. P,A, B,C are in the XY plane. 

C EPS is the desired limiting precision in distance units. 

C 

INTRI=. FALSE. 

EPS= l.E-6 
C 

C Move origin to A, 

C 

PPX= PX - AX 
PPY= PY - AY 
BPX= BX - AX 
BPY= BY - AY 
CPX= CX - AX 
CPY= CY - AY 
C 

C Exit if B or C is too near A. 

C 

D= SQRT(BPX*BPX + BPY*BPY) 

IF(D .LT. EPS .OR. SQRT (CPX*CPX + CPY*CPY) . LT . EPS) RETURN 
C 

C Form base unit vector BU along AB . 

C 

BUX= BPX/D 
BUY= BPY/D 
C 

C Define F + if ABC is ccw or - if cw, exit if collinear. 

C 

F= CPY*BUX - CPX*BUY 
IF(ABS(F) .LT.EPS) RETURN 
M= SIGN(1.,F) 

C 

C Form altitude unit vector H perpendicular to and on C side of base. 
C 

HX= -BUY*M 
HY= BUX*M 
C 

C Heights V and Y of C and P, resp. 

C 

V= HX*CPX + HY^CPY 
Y= HX*PPX + HY*PPY 
C 

C Outside triangle if P is below base or above C. 

C 

IF(Y.LT.0. .OR. Y.GT.V) RETURN 
C 

C On«base projections U and X of C and P, resp. 

C 

U= BUX*CPX + BUY*CPY 
X= BUX*PPX + BUY*PPY 
C 

C P is outside the triangle if X is not between the initersections of 
C the sides with a line through P parallel to the base. 

C 

IF (X.LT.U*Y/V .OR. X.GT. D - (D-U) *Y/V) RETURN 
C 

C By elimination, the remaining condition is within the triangle. 

C 
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0064 

0065 

C 

INTRI=.TRUE 

0066 


END 
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0001 
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0016 

0017 
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0019 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 


C 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE OUTPUT 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C Output writes the pertinent data out to the output file for each 
C element and each relative threat case. The output is in unformatted 
C form. 

C 

C 

C variable list 
C 

C nexp = number of exposed elements 

C 

C 

INCLUDE ' COMMONl . BLK * 

C 

INTEGER*2 I, NEXP 
C 

C For the first threat case write out the global threat and element data 
C 

IF ( IT.EQ.l ) THEN 
C 

C Write out the analysis type, number of threats, and the total number of 
C elements 
C 

WRITE { 4 ) ITYPE,NT,NELM 
C 

C Write out the threat array 
C 

DO 10 1=1, NT 

WRITE ( 4 ) (THREAT(J, I) , J=l, 4) 

10 CONTINUE 
C 

C Write out the element id and pid data 
C 

DO 20 I=1,NELM 

WRITE ( 4 ) (ID(J,I) , J=l,2) 

20 CONTINUE 

C 

C Write out the element surface area 
C 

DO 30 I=1,NELM 

WRITE ( 4 ) ELEMENT (17, I) 

30 CONTINUE 

C 

END IF 
C 

C Determine the number of exposed elements 
C 

NEXP=0 

DO 40 I=1,NELM 

IF ( IEL(1,I) .AND.IEL(2,I) ) THEN 
NEXP=NEXP+1 
END IF 
40 CONTINUE 
C 

C Write out the threat case number and the number of exposed elements 
C 

WRITE ( 4 ) IT, NEXP 
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0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 


C 

C For each exposed element write out the cosine of the impact angle 
C 

DO 50 I=1,NELM 

IF ( IEL(1,I) .AND.IEL(2,I) ) THEN 
WRITE ( 4 ) I,TRANSFORM(l, I) 

END IF 
50 CONTINUE 
C 

C Finished 
C 

RETURN 

C 

C 

END 
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COMMONl . BLK 

C 

C Common block for Geometry Ver 2.5 
C 

C ielm — number of elements 
C 

PARAMETER (IEUl-9000) 

C 

INTEGER*2 IT , ITYPE , NELM , NPE , NT , 

1 IEXP(2,IELM) , POINT (2, IELM) 

C 

INTEGERS ID (5, IELM) 

C 

REALM ELEMENT (17, I ELM) , TRANSFORM ( 13 , IELM) , THREAT(5 , 500) 
C 

LOGICAL IEL(2,IELM) 

C 

COMMON IT,ITYPE,NELM,NPE,NT, 

1 ID, lEL, lEXP, ELEMENT, POINT, THREAT, TRANSFORM 
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APPENDIX C 


Source Code for RESPONSE Module 
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0001 c 

0002 ccccccccccccccccccccccccccccccccccccc 


0003 C C 

0004 C RESPONSE VER 2.0 5/25/87 C 

0005 C C 

0006 C BOEING AEROSPACE CO. C 

0007 C C 


0008 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0009 C 

0010 c 

0011 C Response is a code for producing the hypervelocity impact response 

0012 C file for the BUMPER code. BUMPER calculates the probability of no 

0013 C penetration for spacecraft exposed to meteroids and man-made orbital 

0014 C debris. The code is limited to the case of aluminum spheres impacting 

0015. C aluminum two plate structures. 30 layers of multi-layer insulation may 

0016 C be included between the plates. The code also considers all impact 

0017 C angles greater than 60 deg ( measured from the normal ) to be equivalent 

0018 C to 60 deg. 

0019 C 

0020 C The code was developed under the NASA contract 'Space Station Integrated 

0021 C Wall Design Guide and Penetration Control*, by M.A. Wright and 

0022 C A.R. Coronado. 

0023 C 

0024 C 

0025 C 

0026 C Variable list 

0027 C 

0028 C aincr = impact angle increment , deg 

002 9 C amax = maximum impact angle, deg 

0030 C amin = minimum impact angle, deg 

0031 C ang = impact angle, deg 

0032 C angr = impact angle, radians 

0033 C answer = character string representing user input 

0034 C ctype = configuration type 

0035 C 1“ single plate 

0036 C 2 - double plate 

0037 C dia = projectile diameter, in 

0038 C diam = ” ” , cm 

0039 C ic = case counter 

0040 C initial = logical variable used to detrmine if current call to 

0041 C diameter is the initial one for the current angle 

0042 C itype = analysis type,l=space debris 

0043 C 2=meteoroids 

0044 C mli = logical variable used to detrmine if 30 layers of mli is 

0045 C included 

0046 C nang = number of angles to be considered 

0047 C nvel = number of velocities to be considerd 

0048 C pfunc - penetration function 

0049 C 1-orginal 

0050 C 2-pen4 

0051 C 3 -regress ion 

0052 C shthk = shield thickness, in 

0053 C stand = shield stand-off, in 

0054 C vele = impact velocity, ft /sec 

0055 C velm = ” ” , km/ sec 

0056 C vincr = velocity increment , km/ sec 

0057 C vmax = maximum velocity, km/ sec 

0058 C vmin = minimum velocity, km/sec 

0059 C 

0060 C 

0061 C Array list 

0062 C 

0063 C bhard = array containing the Brinnel hardness values for the 
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D 180-30550-4 

C current configuration 

C c = array containing the speed of sound values for the current 
C configuration, ft/sec 

C dens = array containing the density values for the current 
C configuration, lbs/in**3 

C fsu = array containing the shear allowable stress values for the 
C current configuration, psi 

C ftu = array containing the ultimate tensile stress values for the 
C current configuration, psi 

C fy =“ array containing the yield stress values for the current 
C configuration 

C rtable = array containing the critcal diameters for each case, angle 
C and velocity 

C shpv =array containing the shock projectile velocities for the 
C current configuration 

C wilkc = array containing the values for Wilkinson’s constant for 

C the current configuration, km/sec 

C 

C 

C 

C 

CHARACTER*20 ANSWER 
C 

DIMENSION RTABLE (70, 50, 10) 

C 

DIMENSION BHARD (3) ,C(3) , DENS (3) ,FSU(3) ,FTU(3) , FY(3) , SHPV (3) , 

1 WILKC (3) 

C 

INTEGER*2 CTYPE, IC, ITYPE, NANG, NVEL, PFUNC 
C 

LOGICAL INITIAL, METRIC, MLI 
C 

C Initialize variables 
C 

IC=0 

PFUNC=0 

C 

C Set the angle and velocity limits and increments 
C 

C Amin must always =0 
C 

AMIN=0 .0 
C 

AMAX=90.0 
AINCR=5 . 0 
C 

C Determine the number of velocity and angle iterations 
C 

NANG = (AMAX-AMIN) /AINCR + 1 
C 

C Write header to screen 
C 

CALL HEADER (ITYPE) 

C 

C Set velocity values based on analysis type 
C 

C Vmin must always = 0 
C 

VMIN=0 .0 
C 

IF ( ITYPE. EQ.l ) THEN 
VMAX=17 . 0 
VINCR=0 .25 
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0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 
0189 


ELSE 

VMAX=7 0 . 0 
VINCR=1 . 0 
END IF 
C 

NVEL=(VMAX-VMIN) /VINCR 
C 

C Increment the case countermand determine the wall configuration 
C 

10 IC=IC+1 
C 

CALL INPUT ( CTYPEmICmITYPEmMLImPFUNCmSHTHKmSTANDmVWTHKmBHARDm 
1 CmDENSmFSUmFTUmFYm SHPVmWILKC ) 

C 

C For the current configurationm determine the critical diameter 
C for each impact angle and velocity 
C 

DO 200 I=lmNANG 
C 

C Set the angle, in deg and radians 
C 

ANG = 0.0 + (I-1)*AINCR 
C 

C For angles > 60 deg, set ang-60 
C 

IF ( ANG .GT. 60.0 ) ANG=60.0 
C 

C Convert ang to radians 
C 

ANGR = ANG / 180.0 * 3.141592 
C 

C Set initial equal to true 
C 

INITIAL=.TRUE. 

C 

DO 100 J=1,NVEL 
C 

C Set the velocity in ft/sec and km/sec 
C 

VELM = J*VINCR 
C 

C Convert vel to ft/sec 
C 

VELE = VELM * l.OE+05 / 2.54 / 12.0 
C 

C Determine the critical diameter, as a function of wall configuration 
C 

IF ( CTYPE.EQ.2 ) THEN 
C 

C For the original and regression penetration functions use DOUBLE 
C subroutines 
C 

IF ( PFUNC.EQ.l .OR. PFUNC.EQ.3 ) THEN 

CALL DOUBLE ( ANGR, DIA, INITIAL, ITYPE, MLI, PFUNC, SHTHK, 

1 STAND, VELE, VELM, VWTHK, BHARD, C, DENS , 

2 FSU,FTU,FY, SHPV, WILKC ) 

C 

C For Pen4 use the pen4 subroutine 
C 

ELSE IF ( PFUNC. EQ. 2 ) THEN 

CALL PEN4 ( ANGR, BHARD, C, DENS, DIA, VWTHK, FY,FSU,FTU, 

1 INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 

END IF 
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0190 

C 



0191 



ELSE 

0192 



CALL SINGLE ( ANGR, DIA, VELE, VWTHK, DENS/ FTU ) 

0193 



END IF 

0194 

C 



0195 

C 

Convert the diameter to cm 

0196 

C 



0197 



DIAM = DIA *2.54 

0198 

C 



0199 

C 

Store the diameter in RTABLE 

0200 

C 



0201 



RTABLE ( J/ 1/ IC) =DIAM 

0202 

C 



0203 


100 

CONTINUE 

0204 

C 



0205 


200 

CONTINUE 

0206 

C 



0207 

C 

Determine if another case is to be run 

0208 

C 



0209 



WRITE ( 6,300 ) 

0210 


300 

FORMAT (/IX, 'DO YOU WISH TO RUN ANOTHER CASE ? <CR>=YE 

0211 



READ { 5,310 ) ANSWER 

0212 


310 

FORMAT ( A ) 

0213 

C 



0214 



IF ( ANSWER (1 : 1) .NE. 'N' ) GO TO 10 

0215 

C 



0216 

C 

Write response information to output file 

0217 

C 



0218 



WRITE ( 8 )ITYPE,IC 

0219 

C 



0220 



WRITE ( 8 ) NANG,AINCR 

0221 

C 



0222 



WRITE ( 8 ) NVEL,VINCR 

0223 

C 



0224 



DO 500 1=1, IC 

0225 



DO 450 J=1,NANG 

0226 



DO 400 K=1,NVEL 

0227 



WRITE ( 8 ) RTABLE (K,J, I) 

0228 


400 

CONTINUE 

0229 


450 

CONTINUE 

0230 


500 

CONTINUE 

0231 

c 



0232 

c 

Close the output files 

0233 

c 



0234 



CLOSE ( UNIT=7, STATUS='KEEP' ) 

0235 



CLOSE ( UNIT=8,STATUS='KEEP') 

0236 

c 



0237 



END 
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0001 c 

0002 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0003' C 

0004 SUBROUTINE HEADER (ITYPE) 

0005 C 

0006 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0007 C 

0008 C 

0009 C 

0010 C Header writes the header to the screen and determines the analysis 

0011 C type. 

0012 C 

0013 C 

0014 C 

0015 INTEGER*2 ITYPE 

0016 C 

0017 CHARACTER* 80 ANSWER 

0018 C 

0019 WRITE ( 6,10 ) 

0020 10 FORMAT { / IX, **********************,//, 2X, ’ RESPONSE VER 2.0’, 

0021 1 //,1X, ’Last Update 5/25/87’,//,’********************’) 

0022 .C 

0023 C Determine the analysis type 

0024 C 

0025 20 WRITE ( 6,30 ) 

0026 30 FORMAT ( / IX, ’ ANALYSIS TYPE ?’,/, 2X, ’ 1-DEBRIS <CR>’,/,2X, 

0027 1 ’2 -METEOROIDS’,/, IX, ’ANSWER 1 OR 2 : ’,$) 

0028 C 

0029 READ ( 5,40 ) ANSWER 

0030 40 FORMAT (A) 

0031 C 

0032 IF ( ANSWER(1:1) .EQ. ’ ’ ) THEN 

0033 ITYPE=1 

0034 ELSE 

0035 READ ( ANSWER(1:80) ,50 ) ITYPE 

0036 50 FORMAT ( BN, 14 ) 

0037 END IF 

0038 C 

0039 IF ( ITYPE. EQ.l .OR. ITYPE. EQ. 2 ) THEN 

0040 CONTINUE 

0041 ELSE 

0042 WRITE ( 6,60 ) 

0043 60 FORMAT ( / IX, ’ INCORRECT INPUT’ ) 

0044 GO TO 20 

0045 END IF 

0046 C 

0047 RETURN 

0048 C 

0049 END 
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0001 c 

0002 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0003 C 

0004 SUBROUTINE INPUT (CTYPE, IC, ITYPE, MLI , PFUNC, SHTHK, STAND, VWTHK, 

0005 1 BHARD,C,DENS,FSU,FTU,FY, SHPV,WILKC ) 

0006 C 

0007 ccccccccccccccccccccccccccccccccccccccccccccccccceccccccccccccccccccc 

0008 C 

0009 C 

0010 C Input reads in the physical properties file, determines the wall 

0011 C configuration, and writes the configuration information out to the 

0012 C properties output file. 

0013 C 

0014 C 

0015 C Variable list 

0016 C 

0017 C answer = character string representing user input 

0018 C ctype = configuration type 

0019 C 1- single plate 

0020 C 2- double plate 

0021 C ds = epson printer control for double space 

0022 C ic = current case number 

0023 C itype = analysis type 

0024 C lunits = length unit, cm for metric, in for english 

0025 C metric = a logical variable used to determine if the input is in 

0026 C metric units 

0027 C mli = logical variable used to determine if multi-layer insulation 

0028 C is used between the shield and vessel wall 

0029 C ml = length of the material menu 

0030 C nc = material counter < 10 

0031 C ofilel = properties output file 

0032 C ofile2 = response output file 

0033 C pfunc = penetration function 

0034 C 1- orginal 

0035 C 2- pen4 

0036 C 3- regression 

0037 C pid = property id 

0038 C shthk = shield thickness, in or cm 

0039 C stand = shield stand-off distance, in or cm 

0040 C tp = epson printer control for top of page 

0041 C vwthk = vessel wall thickness, in or cm 

0042 C 

0043 C Array list 

0044 C 

0045 C bhard = array containing the shield , vessel wall, and projectile 

0046 C Brinnel hardness 

0047 C c = array containing the shield, vessel wall, and projectile speed 

0048 C of sound in ft/sec 

0049 C constant = array containing the values of Wilkinson's constant for all 

0050 C materials in the physical properties file, km/sec 

0051 C dens = array containing the shield, vessel wall, and projectile density 

0052 C in lbs/in**3 

0053 C density = array containing the value of the density for all the materials 

0054 C in lb/in**3 

0055 C hard - array containing the values of the Brinnel hardness for all the 

0056 C materials 

0057 C fsu = array containing the shield, vessel wall, and projectile shear 

0058 C stress, psi 

0059 C ftu = array containing the shield, vessel wall, and projectile ultimate 

0060 C tensile stress, psi 

0061 C fty = array containing the shield, vessel wall, and projectile tensile 

0062 C yield stress, psi 

0063 C mat = array containing the material number for the shield, vessel wall, 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 


and the projectile respectively 

material = array containing all of the material names for all of the 
materials in the physical properties file 

shear = array containing the values of the shear stress for all of the 
materials, psi 

shock = array containing the values of the shock projectile velocity 
for ail of the materials, values obtained from Physics 

shpv = array containing the shield, vessel wall, all projectile shock 
projectile velocities 

sound = array containing the values of the speed of sound for all of 
the materials, ft/sec 

wilkc = array containing the shield, vessel wall, and projectile 
Wilkkinson's constant , km/sec 

yield = array containing the values of the yield stress for all the 
materials, psi 

ult = array containing the values of the ultimate tensile stress for 
all of the materials, psi 


CHARACTER*! DS,TP 
CHARACTER*2 igUNITS 
CHARACTER* 12 MATERIAL (10) 

CHARACTER*80 ANSWER, OFILEl, OFILE2 

DIMENSION BHARD (3) ,C (3) , DENS (3) ,FSU(3) ,FTU(3) ,FY(3) , SHPV (3) , 
WILKC (3) 

DIMENSION DENSITY (10) , CONSTANT (10) , HARD (10) , SHEAR (10) , SHOCK (10) , 
SOUND (10) , ULT (10) , YIELD (10) 

INTEGER*2 CTYPE, IC, ITYPE, ML, NC, PFUNC, P ID, MAT ( 3 ) 

LOGICAL METRIC, MLI 

SAVE 


For the first case only, initialize the variables & read in the 
material properties file. 

IF (IC.GT.l) GO TO 70 


NC=1 

METRIC=.TRUE. 
MLI=. FALSE. 


OPEN (UNIT=2 , FILE= * MAT . PRP * , STATUS= * OLD ' ) 

10 READ ( 2,20,END=30 ) MATERIAL (NC) , DENSITY (NC) , YIELD (NC) , 

1 ULT (NC) , SHEAR (NC) , CONSTANT (NC) , SOUND (NC) , 

2 SHOCK (NC) , HARD (NC) 

20 FORMAT (A, BN, 8E12 . 5 ) 


ML=NC 

NC=NC+1 

GO TO 10 

30 CLOSE ( UNIT=2, STATUS=»KEEP* ) 
Read in the output file names. 
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0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 
0189 


C 


C 

C 

C 


C 


C 

C 

C 


C 

C 

C 


C 

C 

C 


WRITE ( 6,40 ) 

40 FORMAT (/IX, ’OUTPUT FILENAME FOR WALL PROPERTIES *, 
* <CR>=RESPONSE.SUM : ’,$) 

READ ( 5, * (A) * ) ANSWER 

IF ( ANSWER (1:1) .EQ. * * ) ANSWER= * RESPONSE . SUM * 

ofilei=answe'r 


WRITE ( 6,50 ) 

50 FORMAT (/IX, ’OUTPUT FILENAME FOR RESPONSE TABLES ’, 
’<CR>=STATION.RSP : ’,$) 

READ ( 5, ’ (A) ’ ) ANSWER 

IF ( ANSWER (1 ; 1) .EQ. ’ ’) ANSWER= ’ STATION . RSP ’ 

OFILE2=ANSWER 


Open the output files . 

OPEN ( UNIT=7, FILE=OFILEl, STATUS^ ’ UNKNOWN ’ ) 

OPEN ( UNIT=8, FILE=OFILE2, STATUS^ ’ UNKNOWN ’, FORM= ’ UNFORMATTED ’ ) 

REWIND 7 
REWIND 8 


Determine the type of units for input. 

WRITE ( 6,60 ) 

60 FORMAT (/IX, ’INPUT IN METRIC OR ENGLISH UNITS <CR>=METRIC : ’,$) 

READ ( 5, ' (A) ’ ) ANSWER 

IF ( ANSWER (1 : 1) .EQ. ’E’ ) >1ETRIC= . FALSE . 


Set the units and if they are metric convert the variables to metric. 

70 IF ( METRIC ) THEN 
LUNITS='CM’ 

SHTHK=SHTHK*2 .54 
VWTHK=VWTHK*2 .54 
STAND=STAND*2 . 54 

ELSE 

LUNITS^’IN’ 

END IF 

Set the property id to the current case number and display 


PID=IC 

C 

WRITE ( 6,80 ) IC 

80 FORMAT (/ IX, ’ PROPERTY ID NUMBER = ’ , I2 ) 

C 

C Determine configuration type 
C 

90 WRITE ( 6,100 ) 

100 FORMAT ( /IX, ’CONFIGURATION TYPE ’ , / , 5X, * 1- SINGLE PLATE ’,/, 

1 5X, ’2- DOUBLE PLATE <CR> ’,/, IX, ’ ANSWER (1 or 2) : * , $) 

READ ( 5, ’ (A) ’ ) ANSWER 
IF ( ANSWER(1:1) .EQ. ' ’ ) THEN 

CTYPE-2 
ELSE 

READ ( ANSWER(1:12) ,110,ERR=90 ) CTYPE 
110 FORMAT ( BN, 14 ) 

END IF 
C 

C Check that the input was correct 
C 

IF ( CTYPE.lt. 1 .OR. CTYPE. GT. 2 ) THEN 
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0190 WRITE ( 6,120 ) 

0191 120 FORMAT( / IX, ' INCORRECT INPUT' ) 

0192 GO TO 90 

0193 END IF 

0194 C 

0195 C For single plate configuration skip down to the vessel wall material 

0196 C 

0197 IF ( CTYPE.EQ.l ) GO TO 290 

0198 C 

0199 C Determine which double wall penetration function to use for the first 

0200 C double wall case only 

0201 C 

0202 IF ( PFUNC.GT.O ) GO TO 150 

0203 C 

0204 130 WRITE ( 6,140 ) 

0205 140 FORMAT ( /IX, 'PENETRATION FUNCTION ',/, 5X, ' 1-ORIGINAL <CR> ' , / , 

0206 1 5X, '2 -PEN4 ',/, 5X, '3-REGRESSION' ,/, IX, 'ANSWER (1-3) : ',$) 

0207 READ ( 5, ' (A) ' ) ANSWER 

0208 IF ( ANSWERd ; 1) .EQ. ' ' ) THEN 

0209 PFUNC=1 

0210 ELSE 

0211 READ ( ANSWERd : 80) ,' (BN, 14) ',ERR=130 ) PFUNC 

0212 END IF 

0213 C 

0214 C Check Input 

0215 C 

0216 IF ( PFUNC.lt. 1 .OR. PFUNC. GT. 3 ) GO TO 130 

0217 C 

0218 C Determine the shield material. 

0219 C 

0220 150 WRITE ( 6,160 ) 

0221 160 FORMAT (/IX, 'SHIELD MATERIAL ') 

0222 C 

0223 C Write out the material list. 

0224 C 

0225 DO 180 1=1, ML 

0226 C 

0227 WRITE ( 6,170 ) I , MATERIAL ( I ) 

0228 170 FORMAT ( 3X,I2,'- ',A ) 

0229 C 

0230 180 CONTINUE 

0231 C 

0232 C For the initial case, set the material default number equal to one. 

0233 C For all other cases use the previous shield material number as the 

0234 C default. If an error is detected on the read, repeat the process. 

0235 C 

0236 IF ( IC .EQ. 1 ) THEN 

0237 190 WRITE ( 6,220 ) 

0238 READ ( 5, ' (A) ' ) ANSWER 

0239 IF ( ANSWERd:!) .EQ. ' ' ) ANSWER= ' 1 ' 

0240 READ (ANSWER (1 : 4) , 200 , ERR=190 ) MAT (1 ) 

0241 200 FORMAT (BN, 14) 

0242 ELSE 

0243 210 WRITE { 6,230 ) MAT(l) 

0244 READ ( 5, '(A)') ANSWER 

0245 IF (ANSWERd : 1) .NE. ' ') THEN 

0246 READ ( ANSWER (1 : 4 ), 200 , ERR=210 ) MAT(l) 

0247 END IF 

0248 ENDIF 

0249 220 FORMAT (IX, 'SELECT MATERIAL NUMBER <CR>=1 : ',$) 

0250 230 FORMAT (IX, 'SELECT MATERIAL NUMBER <CR>=',I2,' : ',$) 

0251 C 

0252 C Check that the value read in is contained in the list. 
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0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 


C 

IF ( MAT(l) .LT.l .OR. MAT(1).GT. ML ) GO TO 150 
C 

C Determine the shield thickness. For the initial case there is no default, 
C for all other cases use the previous value as the default . 

C 

IF ( IC.EQ.l ) THEN 
240 WRITE ( 6,270 ) LUNITS 

READ ( 5,*,ERR=240 ) SHTHK 

ELSE 

250 WRITE ( 6,280 ) LUNITS, SHTHK 
READ ( 5, * (A) * ) ANSWER 
IF ( ANSWER (1 : 1) .NE. * ’) THEN 

READ { ANSWER(1:12) ,260,ERR=250 ) SHTHK 
260 FORMAT (BN,E12 .0) 

END IF 

END IF 

270 FORMAT ( /IX, 'SHIELD THICKNESS C,A, ') = : ',$) 

280 FORMAT ( /IX, 'SHIELD THICKNESS (',A, ') = ',F8.3,' : ',$) 

C 

C Determine the vessel wall material. Use the same technique as used 
C to determine the shield material. 

C 

290 WRITE ( 6,300 ) 

300 FORMAT (/IX, 'VESSEL WALL MATERIAL ' ) 

C 

DO 310 1=1, ML 

WRITE ( 6,170 ) I, MATERIAL (I) 

310 CONTINUE 
C 

IF ( IC.EQ.l ) THEN 
320 WRITE ( 6 ,220 ) 

READ ( 5, * (A) ' ) ANSWER 

IF ( ANSWER(1:1) .EQ. ' ' ) ANSWER^ ' 1 ' 

READ ( ANSWER ( 1 : 4) , 200 , ERR=320 ) MAT(2) 

ELSE 

330 WRITE { 6,230 ) MAT(2) 

READ ( 5, ' (A) ' ) ANSWER 

IF ( ANSWER(1:1) ,NE. * ') THEN 

READ ( ANSWER(1:4) ,200,ERR=330 )MAT(2) 

END IF 

END IF 
C 

IF ( MAT(2).LT.l .OR. MAT(2).GT.ML ) GO TO 290 
C 

C Determine the vessel wall thickness. 

C 

IF ( IC .EQ. 1 ) THEN 
340 WRITE ( 6,360 ) LUNITS 

READ ( 5,*,ERR=340 ) VWTHK 

ELSE 

350 WRITE ( 6,370 ) LUNITS, VWTHK 
READ ( 5, ' (A) ' ) ANSWER 
IF ( ANSWER(1:1) .NE. ' ') THEN 

READ (ANSWER(1:12) ,260,ERR=350) VWTHK 
END IF 

END IF 

360 FORMAT (/IX, 'VESSEL WALL THICKNESS C,A, ') = : ',$) 

370 FORMAT (/IX, 'VESSEL WALL THICKNESS (*,A, ') = ',F8.3,' : ',$) 

C 

C For single plate configuration skip stand-off and mli 
C 

IF ( CTYPE.EQ.l ) GO TO 430 


C - 10 



D 18030550-4 


0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 


C 

C Determine the shield stand-off distance. 

C 

IF { IC.EQ.l ) THEN 
380 WRITE ( 6,400 ) LUNITS 

READ ( 5,*,ERR=380 ) STAND 
ELSE 

390 WRITE ( 6,410 ) LUNITS, STAND 
READ ( 5, ’ (A) * ) ANSWER 
IF ( ANSWER(1:1) .NE. ’ *) THEN 

READ ( ANSWER(1:12) ,260,ERR=390 ) STAND 
END IF 
END IF 

400 FORMAT ( /IX, ’SHIELD STAND-OFF (’ , A, ’ ) - : ’,$) 

410 FORMAT ( /IX, ’SHIELD STAND-OFF ( ’ , A, ’ ) = ’,F8.3,’ : ’,$) 

C 

C Determine if MLI is to be included, but not for the pen4 penetration 
C function 
C 

IF ( PFUNC.EQ.2 ) GO TO 430 
C 

WRITE ( 6,420 ) 

420 FORMAT (/ IX, ’ INCLUDE 30 LAYERS OF MLI BETWEEN PLATES <CR>=YES : 

1 $) 

READ ( 5, ’ (A) ’ ) ANSWER 

IF ( ANSWERd : 1) .EQ. ’ * .OR. ANSWER ( 1 : 1 ). EQ Y ’ )MLI=.TRUE. 

C 

C Set the projectile material property based on analysis type 
C For debris use 100-0 ai, for meteoroids only density is important use 
C 0.50 g/cc . 

C 

430 IF ( ITYPE.EQ.l ) THEN 
BHARD(3)=23.0 
C(3)=16550.0 
DENS (3)=0 .098 
FSU (3) =5000 . 0 
FTU(3)=13000 .0 
FY(3)=9000.0 
SHPV(3)=1.345 
WILKC (3) =. 126 
ELSE 

BHARD(3)=0 .0 
C(3)=0.0 

DENS(3)=0. 50/27. 705 
FSU{3) =0.0 
FTU(3)=0.0 
FY(3) =0.0 
SHPV(3) =0 . 0 
WILKC (3) =0.0 
END IF 

C 

C Write out the inputed values to the properties output file. 

C 

TP=CHAR(12) 

DS=CHAR(10) 

C 

WRITE ( 7,440 ) TP 

440 FORMAT ( A, ’RESPONSE VER 2.0 ') 

C 

IF ( ITYPE.EQ.l ) THEN 
WRITE ( 7,450 ) DS 
ELSE 
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0379 WRITE ( 7,460 ) DS 

0380 END IF 

0381 450 FORMAT (A, 'MAN-MADE ORBITAL DEBRIS ANALYSIS' ) 

0382 460 FORMAT (A, 'METEOROID ANALYSIS ' ) 

0383 C 

0384 WRITE ( 7,465 ) DS,PID 

0385 465 FORMAT (A, 'PROPERTY ID ',14) 

0386 C 

0387 IF ( CTYPE.EQ.l ) THEN 

0388 WRITE ( 7,470 )DS 

0389 ELSE 

0390 WRITE ( 7,480 ) DS 

0391 END IF 

0392 470 FORMAT ( A, 'SINGLE PLATE' ) 

0393 480 FORMAT ( A, 'DOUBLE PLATE' ) 

0394 C 

0395 IF ( CTYPE.EQ.l ) GO TO 520 

0396 C 

0397 IF ( PFUNC.EQ.l ) THEN 

0398 WRITE ( 7,485) DS 

0399 ELSE IF ( PFUNC.EQ.2 ) THEN 

0400 WRITE ( 7,486) DS 

0401 ELSE IF ( PFUNC.EQ.3 ) THEN 

0402 WRITE ( 7,487) DS 

0403 END IF 

0404 485 FORMAT ( A, 'ORIGINAL PENETRATION FUNCTION' ) 

0405 486 FORMAT ( A, 'PEN4 PENETRATION FUNCTION' ) 

0406 487 FORMAT ( A, 'REGRESSION PENETRATION FUNCTION' ) 

0407 C 

0408 WRITE ( 7,500 ) DS, MATERIAL (MAT (1) ) 

0409 500 FORMAT (A, 'SHIELD MATERIAL = ' , A) 

0410 C 

0411 WRITE ( 7,510 )DS,LUNITS,SHTHK 

0412 510 FORMAT (A, 'SHIELD THICKNESS (',A, ') = ’,F8.4) 

0413 C 

0414 520 WRITE ( 7,530 ) DS, MATERIAL (MAT (2) ) 

0415 530 FORMAT (A, 'VESSEL WALL MATERIAL = ',A) 

0416 C 

0417 WRITE ( 7,540 ) DS, LUNITS, VWTHK 

0418 540 FORMAT (A, 'VESSEL WALL THICKNESS (',A, ') = ',F8.4) 

0419 C 

0420 IF ( CTYPE.EQ.l ) GO TO 570 

0421 C 

0422 WRITE ( 7,550 ) DS, LUNITS, STAND 

0423 550 FORMAT (A, 'SHIELD STAND-OFF (',A, ') = ',F8.4) 

0424 C 

0425 IF ( MLI ) THEN 

0426 WRITE ( 7,560 )DS 

0427 560 FORMAT (A, '30 LAYERS OF MLI BETWEEN SHIELD AND VESSEL WALL') 

0428 END IF 

0429 C 

0430 C If the variables were read in in metric units, convert to english. 

0431 C 

0432 570 IF ( METRIC ) THEN 

0433 SHTHK-SHTHK/2 .54 

0434 VWTHK=VWTHK/2 . 54 

0435 STAND=STAND/2.54 

0436 END IF 

0437 C 

0438 C Build the material properties arrays. 

0439 C 

0440 DO 580 1=1,2 

0441 C 
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0442 


BHARD ( I ) =HARD (MAT ( I ) ) 

0443 


C(I)=SOUND (MAT (I) ) 

0444 


DENS ( I ) =DENS ITY (MAT ( I ) ) 

0445 


FSU(I)=SHEAR(MAT(I) ) 

0446 


FTU(I)=ULT(MAT(I) ) 

0447 


FY(I)=YIELD(MAT(I) ) 

0448 


SHPV ( I ) =SHOCK (MAT ( I ) ) 

0449 

0450 

C 

WILKC (I) =CONSTANT (MAT (I) ) 

0451 

0452 

C 

580 CONTINUE 

0453 


RETURN 

0454 

0455 

c 

END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 
0063 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE DOUBLE (ANGR.DIA, INITIAL, ITYPE, MLI , PFUNC, SHTHK, STAND, 

VELE, VELM, VWTHK, BHARD, C, DENS, FSU, FTU, FY, 
SHPV,WILKC) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C DOUBLE DETERMINES THE PROJECTILE DIAMETER THAT JUST PENETRATES 
C THE GIVEN DOUBLE PLATE CONFIGURATION AT THE GIVEN IMPACT VELOCITY 
C AND ANGLE. IT IS USED FOR BOTH THE ORGINAL AND REGRESSION 
C PENETRATION FUNCTIONS. 

C 

C 

C 

C VARIABLE LIST 

C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

C BALL = LOGICAL PARAMETER USED TO DETERMINE IF THE BALLITIC 

C SUBROUTINES ARE CALLED 

C BHARD = ARRAY CONTAINING THE VALUES OF THE BRINNEL HARDNESS FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C BRIST = LOGICAL PARAMETER USED TO DETERMINE IF THE FRAGMENTING 

C SUBROUTINES ARE CALLED 

C C = ARRAY CONTAINING VALUES FOR THE SPEED OF SOUND (FT/SEC) FOR 

C THE SHIELD AND VESSEL WALL MATERIALS 

C DIA = PROJECTILE DIAMETER ( IN . ) 

C DIAB = DIAMETER AS DETERMINED BY SUBROUTINE BRISTOW ( IN . ) 

C DIABL = DIAMETER AS DETERMINED BY SUBROUTINE BALLIST ( IN . ) 

C DIAW = DIAMETER AS DETERMINED BY SUBROUTINE WILKIN ( IN . ) 

C EVWTHK = EQUIVALENT VESSEL WALL THK . ( IN. ) 

C FY = ARRAY CONTAINING THE VALUES OF THE YIELD STRENGTH FOR THE 

C SHIELD & VESSEL WALL MATERIALS 

C FSU = ARRAY CONTAING VALUES OF THE ULTIMATE SHEAR STRENGTH (PSI) 

C FOR THE SHIELD AND VESSEL WALL MATERIALS 

C FTU = ARRAY CONTAING VALUES OF THE ULTIMATE TENSILE STRENGTH (PSI) 

C FOR THE SHIELD AND VESSEL WALL MATERIALS 

C INITIAL = LOGICAL PARAMETER USED TO DETERMINE IF CURRENT 

C SUBROUTINE CALL IS INITIAL ONE 

C ITYPE = ANALYSIS TYPE l^DEBRIS & METEOROIDS, 2=METEOROIDS 

C MLI = CHARACTER STRING USED TO DETERMINE IF MLI IS USED IN WALL 

C PFUNC = PENETRATION FUNCTION 

C 1- ORIGINAL 

C 2- PEN4 

C 3- REGRESSION 

C SHATTER * LOGICAL PARAMETER USED TO DETERMINE IF PEN4 BALLISTIC 

C LIMITS HAVE BEEN EXCEEDED 

C SHPV - ARRAY CONTAINING THE VALUES FOR THE SHOCK PROJECTILE 

C VELOCITY (FT/SEC ) OF THE SHIELD & VESSEL WALL MATERIALS 

C SHTHK = SHIELD THICKNESS ( IN. ) 

C STAND = SHIELD STAND-OFF DISTANCE (IN.) 

C THKMLI » EQUIVALENT THK OF 30 LAYERS OF MLI ( IN. ) 

C VELE = VEL IN FT/SEC 

C VELM = VEL IN KM/SEC 

C VWTHK * VESSEL WALL THICKNESS { IN. ) 

C WILKC = ARRAY CONTAINING THE VALUES OF WILKINSON'S CONSTANT FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C 

INTEGER*2 ITYPE, PFUNC 
C 

DIMENSION BHARD (3) ,C (3) ,DENS (3) , FY(3) , FSU (3) , FTU (3) , SHPV (3) , 
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0064 . WILKCO) 

0065 C ■ ' 

0066 LOGICAL BALL, BRIST, INITIAL, MLl, SHATTER 

0067 C 

0068 C INITIALIZE VARIABLES 

0069 C 

0070 IF ( INITIAL ) THEN 

0071 BALL=.TRUE. 

0072 BRIST=.TRUE. 

0073 DIA=.01 

0074 SHATTER= . FALSE . 

0075 END IF 

0076 C 

0077 C TAKE 30 LAYERS OF ML I INTO ACCOUNT USING COUR-PALAIS ' S EQN. 

0078 C SET LIMIT FOR EQN. AT 10 KM/SEC OR SKIP OVER SECTION ENTIRELY 

0079 C 

0080 C 

0081 IF (.NOT. MLI ) THEN 

0082 THKMLI =0.0 

0083 GO TO 50 

0084 ENDIF 

0085 C 

0086 IF ( VELM . LT . 10.0 ) THEN 

0087 THKMLI = 3.045E-06 * ( VELM ** 3.42 ) 

0088 ELSE 

0089 THKMLI = 3.045E-06 * { 10.0 ** 3.42 ) 

0090 END IF 

0091 C 

0092 C CONVERT TO IN. 

0093 C 

0094 THKMLI = THKMLI / 2.54 

0095 C 

0096 C ADD EQUIVALENT THK. OF MLI TO VESSEL WALL THK. 

0097 C 

0098 50 EVWTHK = VWTHK + THKMLI 

0099 C 

0100 C 

0101 C DETERMINE DIAMETER IN IN. THAT PENETRATES THE SHIELD AND 

0102 C JUST DOES NOT PENETRATE THE VESSEL WALL 

0103 C 

0104 C IF THE ANALYSIS IS FOR METEOROIDS, THEN ONLY USE WILKINSON’S METHOD 

0105 C TO DETERMINE THE PENETRATION DIAMETER 

0106 C 

0107 C 

0108 IF ( ITYPE .EQ. 2 .OR. VELM .GT. 12.0 ) THEN 

0109 BALL=. FALSE. 

0110 BRIST=. FALSE. 

0111 GOTO 500 

0112 ENDIF 

0113 C 

0114 C INITIALLY CALCULATE THE PENETRATION DIAMETER USING BOTH THE 

0115 C BALLISTIC AND FRAGMENTING SUBROUTINES. THE DIAMETER CALCULATED BY 

0116 C THE BALLISTIC SUBROUTINE IS USED UNTIL THE VALUE CALCULATED FROM 

0117 C THE FRAGMENTING SUBROUTINE IS GREATER. AT THAT TIME IT IS NO LONGER 

0118 C NECESSARY TO CALL THE BALLISTIC SUBROUTINES. 

0119 C 

0120 C FOR THE ORGINAL PENETRATION FUNCTION THE OLD VERSION OF PEN4 IS USED 

0121 C IN THE BALLISTIC REGIME AND THE BURCH MODIFIED EQUATIONS ARE USED 

0122 C IN THE FRAGMENTING REGIME. 

0123 C 

0124 C FOR THE REGRESSION PENETRATION FUNCTION THE NEW PEN4 IS USED IN 

0125 C THE BALLISTIC REGIME AND THE REGRESSION EQUATIONS ARE USED IN 

0126 C FRAGMENTING REGIME. 
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0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 
0189 


C 

C 


C 


C 

C 

C 

C 

C 


c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 


IF (BALL) THEN 

IF ( PFUNC.EQ.l 
CALL BALL I ST 

ELSE 

CALL PEN4 ( 


END IF 

DIABL=DIA 


) THEN 

(ANGR, BHARD, C, DENS, DIA^ VWTHK, FY, FSU, FTU, 
INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE) 

ANGR, BHARD , C, DENS , DIA, VWTHK, FY, FSU, FTU, 
INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 


IF ( PFUNC.EQ.l. ) THEN 

CALL BRISTOW ( ANGR, C, DIA, EVWTHK, INITIAL, PFUNC, SHTHK, STAND, 
1 VELE ) 

ELSE 

CALL REGRESS ( ANGR, DIA, MLI , SHTHK, STAND , VELM, VWTHK ) 

END IF 
DIAB=DIA 


CHECK IF THE DIAMETER CALCULATED BY BALLISTIC SUBROUTINE IS LESS 
THAN THAT CALCULATED BY FRAGMENTING SUBROUTINE. IF SO SET BALL TO 
FALSE . 


IF (DIAB . GT .DIABL) THEN 
BALL*. FALSE. 
DIA*DIAB 
GOTO 700 
ELSE 

BALL* . TRUE . 
DIA*DIABL 
GOTO 700 
ENDIF 


CALCULATE THE PENETRATION DIAMETER USING BOTH THE FRAGMENTING AND 
WILKIN SUBROUTINES. THE DIAMETR CALCULATED BY FRAGMENTING IS USED 
UNTIL THE VALUE DETERMINED BY WILKIN IS LESS. IT IS THEN NOT 
NECESSARY TO CALL FRAGMENTING. 


ELSE 

IF (BRIST) THEN 

IF ( PFUNC.EQ.l. ) THEN 

CALL BRISTOW (ANGR, C, DIA, EVWTHK, INITIAL, PFUNC, SHTHK, STAND , 
1 VELE ) 

ELSE 

CALL REGRESS { ANGR, DIA, MLI , SHTHK, STAND, VELM, VWTHK ) 

END IF 
DIAB=DIA 

CALL WILKIN (ANGR, DENS , DIA, EVWTHK, ITYPE , SHTHK, STAND, VELM, 
WILKC) 

DIAW-DIA 

CHECK IF THE VALUE DETERMINED BY WILKIN IS LESS THEN THAT 
DETERMINED BY BRISTOW. IF SO SET BRIST TO FALSE. 

IF ( D I AW . LT . DIAB ) THEN 
BRIST*. FALSE. 

DIA=DIAW 
GOTO 700 
ELSE 

BRIST*. TRUE. 
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0190 DIA=DIAB 

0191 GOTO 700 

0192 ENDIF 

0193 C 

0194 ENDIF 

0195 C 

0196 ENDIF 

0197 C 

0198 C 

0199 C CALCULATE THE DIAMETER USING THE WILKIN SUBROUTINE. 

0200 C 

0201 500 CALL WILKIN (ANGR, DENS , DIA, EVWTHK, ITYPE, SHTHK, STAND, VELM, WILKC) 

0202 C 

0203 C SET INITIAL TO FALSE 

0204 C 

0205 700 INITIAL = .FALSE. 

0206 C 

0207 C 

0208 RETURN 

0209 C 

0210 END 
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0001 c 

0002 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0003 C 

0004 SUBROUTINE BRISTOW (ANGR, C, DIA, EVWTHK, INITIAL, SHTHK, STAND, 

0005 1 VELE ) 

0006 C 

0007 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0008 C 

0009 C 

0010 c 

0011 C BRISTOW DETERMINES NUMBER OF PLATES PENETRATED. BASED ON 

0012 C "MULTIPLE-DAMAGE STUDY", BY G.T. BURCH, BOEING 1967, AIR FORCE 

0013 C ARMAMENT LABORATORY TECH REPORT AFATL-TR-67-116 . 

0014 C 

0015 C VALID FROM 3.6 TO 10.2 KM/SEC, AND FOR ALUMINUM PROJECTILES 

0016 C IMPACTING ALUMINUM PLATES AT NORMAL . 

0017 C 

0018 C 

0019 C VARIABLE LIST 

0020 C 

0021 C ANGR =• IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

0022 C Cl = SPEED OF SOUND IN SHIELD MATERIAL, FT/SEC 

0023 C C = ARRAY CONTAINING VALUES OF THE SPEED OF SOUND FOR 

0024 C THE SHIELD AND VESSEL WALL MATERIALS ( FT/SEC ) 

0025 C CHI= INTERMEDIATE VARIABLE 

0026 C DIA = PROJECTILE DIAMETER, IN. 

0027 C DIAl = PREVIOUS DIAMETER 

0028 C DIA2 = CURRENT DIAMETER 

0029 C DT = INTERMEDIATE VARIABLE 

0030 C EVWTHK = EQUIVALENT VESSEL WALL THICKNESS, IN . 

0031 C Fl= INTERMEDIATE VARIABLE 

0032 C F2 = 

0033 C F3 = 

0034 C I = ITERATION COUNTER 

0035 C INITIAL = LOGICAL PARAMETER USED TO DETERMINE IF CURRENT CALL 

0036 C IS INITIAL ONE 

0037 C NF = NUMBER OF PLATES PENETRATED BY THE FLIGHT PATH COMPONENT 

0038 C NN = NUMBER OF PLATES PENETRATED BY THE NORMAL COMPONENT 

0039 C PLP = # OF PLATES PENETRATED 

0040 C PLPl = PREVIOUS PLP 

0041 C PLP2 = CURRENT PLP 

0042 C SD = INTERMEDIATE VARIABLE 

0043 C SHTHK = SHIELD THICKNESS, IN. 

0044 C SIN3 = INTERMEDIATE VARIABLE 

0045 C SLOPE = SLOPE OF LINE THROUGH (DIAl, PLPl) & (DIA2,PLP2) 

0046 C SPF = NUMBER OF PLATES PENETRATED THAT ACCOUNTS FOR SPALLING 

0047 C STAND = SHIELD STAND-OFF (IN.) 

0048 C SWITCH = LOGICAL VARABLE USED TO DETERMINE IF THE CRITICAL 

0049 C DIAMETER IS TO BE ESTIMATED THROUGH LINEAR 

0050 C INTERPOLATION 

0051 C T1D= INTERMEDIATE VARIABLE 

0052 C T2D = 

0053 C TEST = RATIO OF THE NUMBER OF PLATES PENETRATED TO THE 

0054 C SPALLING FACTOR 

0055 C VC = 

0056 C VELE = VEL IN FT/SEC 

0057 C VHOLD = VELOCITY HOLDER 

0058 C 

0059 C 

0060 C 

0061 DIMENSION C(3) 

0062 C 

0063 LOGICAL INITIAL 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


C 

REAL NF,NN 
C 

LOGICAL SWITCH 
C 

SAVE PLP1,PLP2^DIA1,DIA2 
C 
C 

C SINCE THIS METHOD DOES NOT SOLVE FOR THE DIAMETER THAT JUST 
C PENETRATES DIRECTLY AN ITERATIVE APPROACH IS TAKEN. INITIAL VALUES 
C ARE SET,. AND USED TO APPROXIMATE THE CORRECT VALUE, THIS PROCESS 
C IS CONTINUED UNTIL THE ANSWER IS WITHIN TOLERANCES, 

C 

C 

C SET INITIAL VALUES 
C 

1=0 

SPF =0.85 
SWITCH=. FALSE. 

C 

C IF THIS IS THE INITIAL CALL SET INITIAL ELSE USE PREVIOUS VALUES 
C VALUES 
C 

IF (INITIAL) THEN 
DIA2=10 .0 
ENDIF 
C 

C FOR VELOCITIES LESS THAN 11,800 FT/SEC SET THE VELOCITY EQUAL 
C TO 11,800 AND CALCULATE THE CRITICAL DIAMETER, USE THIS VALUE 
C TO ESTIMATE THE ACTUAL DIAMETER. SET THE LOGICAL VARIABLE SWITCH 

C TO TRUE AND SAVE THE VELOCITY AS VHOLD . 

C 

IF ( VELE ,LT. 11800. ) THEN 
VHOLD=VELE 
VELE=11800 . 

SWITCH*. TRUE. 

END IF 
C 

C CALCULATE INTERMEDIATE VARIABLES THAT DO NOT NEED TO BE CALCULATED 
C FOR EACH DIAMETER 
C 

CHI=TAN (ANGR) -0 .50 
SIN3= (SIN (ANGR) ) **3 
VC=VELE/C (1) 

C 

100 1 = 1+1 
C 

C IF THIS IS THE FIRST PREDICTION USE THE DIAMETER VALUE THAT WAS 
C CALCULATED TO PENETRATE FOR THE PREVIOUS CASE AS A STARTING POINT. 
C ELSE USE A LINEAR PREDICTION APPROACH BASED ON THE LAST TWO 
C PREDICTIONS. 

C 

IF ( I.EQ.l ) THEN 
C 

DIA=DIA2 
DIA2=0 .0 
PLP2=0 .0 
C 

ELSE 

C 

SLOPE* (PLP2-PLP1) / (DIA2-DIA1) 

DIA=( (SPF-PLPl) /SLOPE+DIAl) 

C 
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0127 

0128 

0129 

0130 

0131 

0132 

0133 
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THAT DIA >0.0 

IF(DIA.LT.O.O) DIA=1.0E-10 

if dial = dia2^if so stop 

IF ( DIA.EQ.DIA2 ) THEN 

WRITE ( 6,150 ) ANGR, VELE,DIA 

FORMAT (/IX, 'BRISTOW CANNOT CONVERGE BECAUSE OF FLAT *, 
'SLOPE (ANGLE, VEL, DIA) =',3E12.5 ) 

STOP 
END IF 
END IF 
C 

C CALCULATE # OF PLATES PENETRATED 
C 

SD=STAND/DIA 

T1D=SHTHK/DIA 

T2D=EVWTHK/DIA 

C 

Fl=2.42* (TID** (-1./3.) ) +4 . 2 6* (TID** (1 , /3 . ) ) -4.18 
C 

F2=(0 .5-1 .87*T1D) + (5.*T1D-1 . 6) * (CHI* *3) + (1 . 7-12 . *T1D) *CHI 
C 

F3=0 .32* (TID** (5. /6.)) +0.48* (TID** (1 . /3 . ) ) *SIN3 
C 

NF= (Fl + 0 . 63*F2) * (VC** (-4 . /3 . ) ) * (SD** (-5 ./12 . ) ) * (T2D** (-7 . /12 . ) ) 
C 

NN=F3* (T2D** (-1. ) ) * (VC** (-4 . /3 . ) ) 

C 

C DETERMINE WHICH COMPONENT CONTROLS 
C 

IF ( NF.GT.NN ) THEN 
PLP=NF 
ELSE 

PLP='NN 

ENDIF 

C 

C RESET HOLDERS 
C 

DIA1=DIA2 

DIA2*DIA 

PLP1=PLP2 

PLP2=PLP 

C 

C CHECK IF PLP IS WITHIN TOLERANCE, IF NOT ITERATE 
C 

TEST == PLP/SPF 
C 
C 

IF ( TEST. LT. 0.99 .OR. TEST. GT. 1.01 ) GO TO 100 
C 

C IF SWITCH IS TRUE, ESTIMATE THE CRITICAL DIAMETER USING LINEAR 
C INTERPOLATION. THE TWO POINTS USED ARE THE ORIGIN AND THE VALUE 
C CALCULATED AT 11800 . 

C 

IF ( SWITCH ) THEN 
C 

DIA-DIA2*VHOLD/11800 .0 
SWITCH=. FALSE. 

DIA1=0 . 0 
PLP1=0.0 
C 


C CHECK 
C 

C 

C Check 
C 


150 

1 
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0190 


END IF 

0191 

C 


0192 


RETURN 

0193 

C 


0194 

C 


0195 


END 
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C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE WILKIN (ANGR, DENS, DIA, EVWTHK, ITYPE, SHTHK, STAND, VELM, 

WILKC ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C WILKIN DETERMINES THE DIAMETER THAT JUST PENETRATES THE VESSEL 
C WALL. IT IS BASED ON J.P.D. WILKINSON’S PAPER 'A PENETRATION 
C CRITERION FOR DOUBLED -WALLED STRUCTURE SUBJECT TO METEOROID IMPACT’ 

C ,AIAA JOURNAL OCT 1969. 

C 

C THE MAJOR ASSUMPTION USED BY WILKINSON IS THAT THE PROJECTILE 
C VAPORIZES ON IMPACT 
C 
C 

C VARIABLE LIST 
C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

C CONST = MATERIAL CONSTANT DEFINED BY WILKINSON 

C Cl = INTERMEDIATE VARIABLE 

C DENS = ARRAY CONTAINING VALUES FOR DENSITY OF THE SHIELD & 

C VESSEL WALL MATERIALS 

C DIA = PROJECTILE DIAMETER (IN) 

C DIAM = PROJECTILE DIAMETER (CM ) 

C EVWTHK = EQUIVALENT VESSEL WALL THK. ( IN) 

C ITYPE == ANALYSIS TYPE 1=DEBRIS & METEOROIDS, 2=METEOROIDS 

C MASS = PROJECTILE MASS ( GRAMS ) 

C MB = INTERMEDIATE VARIABLE 

C MT = 

C PI = PI 

C PROJDEN = PROJECTILE DENSITY ( G/CC ) 

C RMI == UNIT MASS OF SHIELD (G/CM**2) 

C RM2 = UNIT MASS OF VESSEL WALL (G/CM**2) 

C SHDEN = SHIELD & VESSEL WALL DENISITY ( GRAMS/CC ) 

C SHTHK = SHIELD THK. (IN) 

C STAND = SHIELD STAND-OFF DISTANCE (IN) 

C STANDM = STAND IN CM. 

C VELM = VEL IN KM/SEC 

C VNORM = NORMAL COMPONENT OF THE VELEOCITY VECTOR, KM/SEC 

C VWDEN - VESSEL WALL DENSITY (LB/IN**3) 

C WILKC =“ ARRAY CONTAINING VALUES OF WILKINSON’S CONSTANT 

C FOR THE SHIELD & VESSEL WALL MATERIALS 

C 
C 
C 

DIMENSION DENS (3) , WILKC (3) 

C 

INTEGER*2 ITYPE 
C 

REAL MB, MT, MASS 
C 

C SET INITIAL VALUES 
C 

PI = 3.141592654 
C 

C SET PROJECTILE DENSITY IN G/CC 
C 

PROJDEN = DENS (3) *27 .705 
C 

C SET SHIELD AND VESSEL WALL DENSITY IN G/CC 
C 
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0064 SHDEN = DENS(l) * 27.705 

0065 VWDEN = DENS (2) * 27.705 

0066 C 

0067 C CONST IS A MATERIAL VARIABLE DEFINED IN THE PAPER & IS 

0068 C EQUAL TO .401 FOR 2219 AL 

0069 C 

0070 CONST = WILKC(2) 

0071 C 

0072 C DETERMINE SHIELD & VESSEL WALL MASS PER UNIT AREA 

0073 C 

0074 RMl = SHTHK * 2.54 * SHDEN 

0075 RM2 = EVWTHK * 2.54 * VWDEN 

0076 C 

0077 C CONVERT STAND TO CM 

0078 C 

0079 STANDM = STAND * 2.54 

0080 C 

0081 C CALCULATE THE NORMAL COMPONENT OF THE VELOCITY VECTOR 

0082 C 

0083 VNORM=VELM*COS (ANGR) 

0084 C 

0085 C DETERMINE CRITICAL PROJECTILE DIAMETER 

0086 C 

0087 MT = 1 .44* (PI/6. 0) ** (1. /3 . ) *C0NST*RM1*RM2*STANDM**2 .0 

0088 MB = PROJDEN** (2 . /3 . ) *VNORM 

0089 MASS = (MT/MB)**.75 

0090 DIAM = (6.0*MASS/(PI*PROJDEN))**(l./3.) 

0091 C 

0092 C CHECK IF APPROPRIATE EQ . WAS USED 

0093 C 

0094 Cl = RMl / ( PROJDEN * DIAM ) 

0095 IF ( Cl .GT. 1.0 ) THEN 

0096 C 

0097 C WRONG EQN. USED, RECALC USING CORRECT EQN. 

0098 C 

0099 MASS= 1 . 44*CONST*RM2* (STANDM**2 . ) /VNORM 

0100 DIAM = (6 .0*MASS/ (PI*PROJDEN) ) ** (1 . /3 . ) 

0101 END IF 

0102 C 

0103 C CONVERT DIAMETER TO IN 

0104 C 

0105 DIA = DIAM / 2.54 

0106 C 

0107 RETURN 

0108 C 

0109 END 
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C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE REGRESS ( ANGR, DIA^ MLI , SHTHK, STAND, VELM, VWTHK ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

c 

C Subroutine REGRESS detenninea the critical projectile diameter for 
C a two-plate structure impacted by aluminum spherical projectiles. It 
C was developed from test data obtained during the NASA contract 
C 'Integrated Space Station Wall Design Guide and Penetration Control 
C Plan'. The data varied from 2 to 8 km/sec. 

C 

C 

C Variable List 
C 

C angr = impact angle measured from the normal, radians 
C dia = critical projectile diameter, in 
C dl3 = intermediate variable 

C high = holder, last diameter to penetrate , in 
C ic = counter 

C low = holder, last diameter to not penetrate, in 
C Isd = intermediate variable 

C mli = logical variable indicating wether multi-layer insulation is 
C used 

C mt = intermediate variable 

C np - number of plates penetrated, excluding the shield 
C shthk =* shield thickness , in 

C stand =* shield stand-off , in 

C switch = logical variable, used to determine if a penetrating 
C diameter has been determined 

C tt = intermediate variable 

C tl3 = 

C vc2 = ” 

C velm = impact velocity, km/sec 
C vwthk = vessel wall thickness , in 
C 
C 
C 

INTEGER IC 
C 

REAL LOW,LSD,MT,NP 
C 

LOGICAL MLI, SWITCH 
C 

C Intialize Variables 
C 

IC=0 
LOW=0 .0 
HIGH=5.0 
SWITCH*. TRUE. 

C 

C Set MLI constant 
C 

IF ( MLI ) THEN 
MT*-14.0 
ELSE 

MT=0 .0 
END IF 
C 

C Since the equation does not solve for the critical projectile 
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C diameter directly, use a binary search technique to determine it . 

C First determine a diameter that penetrates then narrow in on the 
C actual diameter. 

C 

100 CONTINUE 
C 

IC=IC+1 

C 

IF ( SWITCH ) THEN 
HIGH=HIGH*2.0 
END IF 
C 

DIA= (HIGH+LOW) /2 . 0 
C 

C Check that the diameter is less then 50 cm , if not stop 
C 

IF ( DIA.GT.50.0 ) THEN 

WRITE ( 6, * ( * * ERROR Diameter greater than 50 cm in 

1 * * subroutine REGRESS * * ) ’ ) 

STOP 
END IF 
C 

C Calculate the intermediate variables 
C 

D13=DIA**(l./3.) 

LSD^LOGIO (STAND) /DIA 
T13=SHTHK** (1 . /3 . ) 

TT=TAN(ANGR) 

VC2=VELM* (COS (ANGR) **2) 

C 

C Calculate the number of plates penetrated 
C 

NP=1.52-6. 18*T13-18 ,8*VWTHK-0 . 146*LSD+MT*SHTHK+10 . 8*D13-0 .287*VC2 
1 -0.713*TT 

C 

C Check for convergance 
C 

IF ( IC.GT.lOO ) THEN 

WRITE ( 6,M** ERROR REGRESS failed to converge after 

1 ' *100 cycles* * ) *) 

STOP 
END IF 
C 

C Has a diameter that penetrates been found, if not reset holders and 
C try again 
C 

IF ( SWITCH ) THEN 

IF ( NP.GT.l ) THEN 
SWITCH*. FALSE. 

HIGH*DIA 
GO TO 100 
END IF 
END IF 
C 

C Does the diameter yeild an acceptable result, if not rest holders 
C and try again 
C 

IF ( NP.LT. 0.999 ) THEN 
LOW*DIA 
GO TO 100 

ELSE IF ( NP.GT.l. 001 ) THEN 
HIGH=DIA 
GO TO 100 
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0127 

0128 

C 

END IF 

0129 

C 

Finished 

0130 

0131 

C 

RETURN 

0132 

0133 

C 

END 
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C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE BALLIST (ANGR, BHARD, C, DENS , DIA, VWTHK, FY, FSU, FTU, 

1 INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C BALLISTIC DETERMINES THE DIAMETER THAT JUST PENETRATES. IT ULTILZES 
C THE BALLISTIC PORTION OF BOEING’S HYPERVELOCITY CODE PEN4 . 

C 

C 

C VARIABLE LIST 
C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

C BHARD = ARRAY CONTAINING THE VALUES OF THE BRINNEL HARDNESS FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C C = ARRAY CONTAINING VALUES FOR THE SPEED OF SOUND FOR THE 
C SHIELD AND VESSEL WALL MATERIALS (FT/SEC) 

C DEN = PROJECTILE DENSITY (LB/CFT) 

C DENS = ARRAY CONTAINING VALUES FOR THE DENSITY FOR THE 
C SHIELD AND VESSEL WALL MATERIALS (LB/IN**3) 

C DIA = SPHERICAL PROJECTILE DIAMETER (IN) 

C DIAl = PREVIOUS DIAMETER THAT PENETRATED (IN) 

C DIA2 = DIAMETER THAT PENETRATED TWO ITERATIONS PREVIOUSLY (IN) 

C EVWTHK = EQUIVALENT VESSEL WALL THICKNESS , IN . 

C FY = ARRAY CONTAINING THE VALUES OF THE YIELD STRENGTH FOR THE 
C SHIELD & VESSEL WALL MATERIALS 

C FSU = ARRAY CONTAINING VALUES OF THE ULTIMATE SHEAR STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSD 

C FTU = ARRAY CONTAINING VALUES OF THE ULTIMATE TENSILE STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSI) 

C I = COUNTER 

C INITIAL = LOGICAL PARAMETER USED TO DETRMINE IF CURRENT CALL 
C IS INITIAL ONE. 

C MASS = PROJECTILE MASS, LBS 
C N = INCREMENT MULIPLIER 

C PDENS = DENS ARRAY CONVERTED TO SLUGS/FT**3 
C PFY = FY ARRAY CONVERTED TO PSF 
C PFSU = FSU ARRAY CONVERTED TO PSF 

C PFTU = FTU ARRAY CONVERTED TO PSF 

C PI = LAST MASS GUESS TO NOT PENETRATE 

C P2 = LAST MASS GUESS TO PENETRATE 

C PEN = TRUE OR FALSE 

C PI = 3.14 

C PMINCR = INITIAL MASS GUESS INCREMENT 

C RATIO = P2 / PI 

C SHATTER = LOGICAL PARAMETER USED TO DETERMINE IF PEN4 BALLISTIC 
C LIMITS HAVE BEEN EXCEEDED 

C SHPV = ARRAY CONTAING VALUES OF THE SHOCK PROJECTILE VELOCITY 
C FOR THE SHIELD AND VESSEL WALL MATERIALS, ( UNITLESS ) 

C SHTHK = SHIELD THICKNESS , IN . 

C SPACE = ARRAY CONTAINING THE SHIELD SPACING , FT . 

C STAND = SHIELD STAND-OFF, IN . 

C TARMAT = ARRAY CONTAINING MATERIAL PROPERTY POINTERS 

C THETA = IMPACT ANGLE ( RAD ) , ME ASURED FROM THE NORMAL 

C THICK = SHIELD & VESSEL WALL THICKNESS , FT . 

C VELE = COLLISION VELOCITY, FT/SEC 

C VELl = VEL FOR DIAl 

C VEL2 = VEL FOR DIA2 

C VO = IMPACT VELOCITY (FT/SEC) 

C VR2 = RESIDUAL VELOCITY AFTER VESSEL WALL, FT/SEC 
C 
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0064 

C 


0065 

C 


0066 


DIMENSION BHARD (3) ,C{3) ,DENS (3) , FY (3) , FSU (3) ,FTU(3) ,PDENS (3) , 

0067 


PFY(3) ,PFSU(3) ,PFTU(3) ,SHPV(3) ,SPACE(2) ,THICK(3) , 

0068 


TARMAT ( 3 ) 

0069 

C 


0070 


INTEGER PROJMAT, TARMAT 

0071 

C 


0072 


LOGICAL PEN, INITIAL, SHATTER 

0073 

C 


0074 


REAL MASS 

0075 

C 


0076 


SAVE DIA1,DIA2,P2,VEL1,VEL2 

0077 

C 


0078 

C 


0079 

C 

SET INITIAL VALUES 

0080 

C 


0081 


1 = 0 

0082 


N = 0 

0083 


PEN = .FALSE. 

0084 


PMINCR = l.OE-04 

0085 


. PI = 3.1415926536 

0086 


PI = l.OE-06 

0087 

C 


0088 

C 

CONVERT VARIABLES TO PEN4 FORMAT AND UNITS 

0089 

C 


0090 


DO 50 1=1,3 

0091 

C 


0092 

c 

CONVERT DENS TO SLUGS /FT* *3 

0093 

c 


0094 


PDENS (I) =DENS (I) *1728 ./32 .2 

0095 

c 


0096 

c 

CONVERT FSU AND FTU TO PSF 

0097 

c 


0098 


PFY(I)=FY(I) *144. 

0099 


PFTU(I)=FTU(I) *144. 

0100 


PFSU(I)=FSU(I) *144. 

0101 

c 


0102 

50 

CONTINUE 

0103 

C 


0104 


PROJMAT = 3 

0105 


SPACE (1) = STAND/12.0 

0106 


SPACE (2) =0.0 

0107 


TARMAT ( 1 ) =1 

0108 


TARMAT (2) = 2 

0109 


TARMAT (3) = 0 

0110 


THETA - ANGR 

0111 


THICK (1) = SHTHK/12.0 

0112 


THICK (2) = VWTHK/12.0 

0113 


THICK(3) = 0.0 

0114 


VO = VELE 

0115 

C 


0116 

c 

PEN4 DOES NOT SOLVE FOR THE CRITICAL PROJECTILE DIAMETER DIRECTLY 

0117 

c 

THEREFORE AN ITERATIVE APPROACH IS TAKEN. PEN4 ONLY RETURNS 

0118 

c 

A LOGICAL PARAMETER INDICATING IF PENETRATION HAS OCCURED . 

0119 

c 


0120 

c 


0121 

c 

FOR INITIAL CASE SET P2 > 0.0 

0122 

c 


0123 


IF (INITIAL) THEN 

0124 


P2 = l.OE-04 

0125 


ENDIF 

0126 

c 
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D 180-30550-4 


C IF SHATTER HAS OCCURED NO NEED TO CALL PEN4.USE LINEAR APPROX. 
C 

IF (SHATTER) GO TO 500 
C 

C DETERMINE INITIAL MASS THAT PENETRATES 
C 

100 MASS = P2 + N * PMINCR 
C 

NC = NC + 1 


C 


c 

c 

c 

c 


c 


c 

c 

200 

C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


CALL OPEN4 (PEN, MASS , THETA, SHATTER, VO , PDENS , BHARD, PROJMAT, SHPV, 
C, SPACE, TARMAT, THICK, PFY, *500) 

IF ( PEN ) THEN 

IF PENETRATION TRY WITH MASS BETWEEN Pi & P2 

PEN = .FALSE. 

P2 = MASS 

MASS = ( PI + P2 ) / 2.0 
NC = NC + 1 

CALL OPEN4 (PEN, MASS , THETA, SHATTER, VO , PDENS , BHARD, PROJMAT, 
SHPV, C, SPACE, TARMAT, THICK, PFY, *500 ) 


IF ( PEN ) THEN 

IF PENETRATION, SET P2 = MASS & CHECK RATIO 

PEN = .FALSE. 

P2 = MASS 
RATIO = P2 /PI 

IF ( RATIO .LT. .995 .OR. RATIO .GT. 1.005 ) THEN 

IF TRUE TRY AGAIN BETWEEN PI & P2 

MASS = ( PI + P2 ) / 2.0 
NC = NC + 1 

CALL OPEN4 (PEN, MASS, THETA, SHATTER, VO , PDENS, BHARD, 
PROJMAT, SHPV, C, SPACE, TARMAT, THICK, PFY, 
*500) 

GO TO 200 
ELSE 

IF FALSE, MASS IS WITHIN RANGE SO CONTINUE 

GO TO 300 
END IF 

ELSE 

IF FALSE, SET PI = MASS AND CHECK RATIO 

PI = MASS 
RATIO = P2 / PI 

IF ( RATIO .LT. .995 .OR. RATIO . GT . 1.005 ) THEN 

IF TRUE, TRY AGAIN BETWEEN Pi & P2 

MASS = ( PI + P2 ) / 2.0 
NC = NC + 1 

CALL OPEN4 (PEN, MASS, THETA, SHATTER, VO , PDENS, BHARD, 
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0190 . PROJMAT,SHPV,C, SPACE, TARMAT, THICK, PFY, 

0191 . . *500) 

0192 GO TO 200 

0193 ELSE 

0194 C 

0195 C IF FALSE, MASS IS WITHIN RANGE SO CONTINUE 

0196 C 

0197 GO TO 300 

0198 END IF 

0199 ENDIF 

0200 ELSE 

0201 C 

0202 C IF FALSE INCREASE INCREMENT & TRY AGAIN 

0203 C 

0204 PI = MASS 

0205 1=1+1 

0206 N = 2 ** I 

0207 GO TO 100 

0208 END IF 

0209 C 

0210 P2=MASS 

0211 C 

0212 C CALCULATE DIAMETER 

0213 C 

0214 C 

0215 C 

0216 300 DEN = DENS (3) *1728 . 0 

0217 C 

0218 DIA = ( (MASS*6.0) / (PI*DEN) )** (1.0/3. 0) 

0219 C 

0220 C CONVERT TO IN. 

0221 C 

0222 DIA = DIA * 12.0 

0223 C 

0224 C 

0225 C 

0226 C RESET HOLDERS 

0227 C 

0228 DIA2=DIA1 

0229 DIA1=DIA 

0230 VEL2=VEL1 

0231 VELl-VELE 

0232 C 

0233 C 

0234 RETURN 

0235 C 

0236 C SINCE SHATTER HAS OCCURED NO NEED TO CALL PEN4 USE LINEAR APPROXL 

0237 C 

0238 500 SLOPE= (DIA1-DIA2) / (VEL1-VEL2) 

0239 DIA=DIA2+SLOPE* (VELE-VEL2) 

0240 RETURN 

0241 C 

0242 END 


C - 30 



D 18030550-4 


0001 c 

0002 

0003 

0004 

0005 C 

0006 C 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 C 

0016 C 

0017 C 

0018 C 

0019 C 

0020 
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SUBROUTINE OPEN4 (Penetration, Mass , Theta, SHATTER, VO, 

1 Density, Hardness , Pro jMat , ShockPro jVel, SoundVel, 

2 Spacing, TarMat, Thick, YieldStrength, *) 

This version of pen4 is strictly for use in the sub-shatter velocity 
regime. It is a modified version of spinl4, created on 6/21/85. 

LOGICAL Penetration, SHATTER 

REAL Mass, LAMBDA, NR, NF,NH,J,NR2,NHT, LastPK,MR 

INTEGER Pro jMat , TarMat , Exponent , TopCount , BottomCount 1, BottomCount2 
DIMENSION Thick (3) , TarMat (3) , Spacing (2) , 

: Density ( 3) , YieldStrength ( 3) , SoundVel ( 3 ) , 

: ShockPro jVel (3) , Hardness ( 3 ) , Epsil (2 ) , 

: NR (3) ,NR2 (3) ,RF(3) ,Flagit (3) 

Density in Slugs/CubicFoot 
YieldStrength in Lbs/SquareFoot 
SoundVel in Feet /Second 
Hardness is Brinell Scale 
DATA Epsil, Gamma/5 . 71, 5 . 71, 90 . 0/ 

DATA FI, F2/4. 0,1.0/ 

DATA Ef f ect iveThicknessRatio/ . 6/ 

DATA A,B/2.0,3.125E-04/ 

PI=3. 141592653589793 
Small = lE-36 

RecipSqrt2PI=l . /SQRT (2 . *PI) 

★ Radius of Projectile sphere*******"^***** 

RP= (Mass*3 , / 

1 (Density (Pro jMat) *32.2*4. *PI) ) **(l./3.) 

Diam = RP * 2. 


★ ★★★*★★*■*** ^Compute ResidualVel * ********************************* 
VDEL= ( V0**2*l . 33*RP**2*Density (Pro jMat) - 

1 Fl*YieldStrength (TarMat (1) ) *THICK(1) **2/COS (THETA) **2 

2 *A*EXP (-B*V0) ) 

2 /( 1.33*RP**2*Density(ProjMat)+F2*RP*THICK(l) * 

3 Density (TarMat (1) ) /COS (THETA) ) 

VR=SQRT (AMAXl (VDEL, 0 . ) ) 

*Tk************************************************************** 


*********** *Cratering V5 o*************************************** 
V50=*SQRT ( (Thick ( 1 ) *Ef f ectiveThicknessRatio/COS (Theta) / 

1 (0 . 281*Diam* (Density (Pro jMat) /Density (TarMat (l)))**(l./3.))) 

2 **(!./. 31) /Density (Pro jMat) * (2 . *YieldStrength (TarMat (1) ) ) ) 
*★★★**★**★★★★★*★***★****★*******★★**★***★********★************** 


****t*t*********IF No Penetration Report Result and Exit ********** 
IF (V0.LT.V50) THEN 

Penetration = .FALSE. 

RETURN 

ELSE IF (Thick(2) .EQ.0.0) THEN 
Penetration = .TRUE. 

RETURN 

ENDIF 

*★★★★★★****** *★★***★★★★★*★★★*★****★*★*************************** 


**************Mass Loss Regime Decision************************* 
ToverD = Thic)c ( 1) /Diam 

FTHETA=-2 .433E-4 - 1 . 643E-2*COS (THETA) +3 . 201*COS (THETA) **2- 
2 . 184*COS (THETA) **3 
IF (ToverD . LT .. 40) THEN 
Vf = 4100 . 


C - 31 



D 180-30550-4 


0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 C 

0079 C 

0080 C 

0081 C 

0082 

0083 

0084 

0085 

0086 


ELSE 

Vf - 4986 . *ToverD** . 21 

END IF 

IF (VO.LT.VF+4000.) THEN 
IF (VO.LT.Vf) THEN 

CALL MassErr (VO ^ Mass ^ Hardness (Pro jMat ) , 

Density (Pro jMat) ^ Density (TarMat (1) ) ^ Thick (1) ,Diam,MR) 

ELSE 

CALL Fract (MR, VO, Vf , FTheta,Mass, ToverD) 

END IF 

CALL LarMR (VR, MR, V50 , Thick (2 ) , EffectiveThickNessRatio, Theta , 
Diam, Density (Pro jMat ) , Density (TarMat (2 ) ) , 
YieldStrength (TarMat (1) ) , Penetration) 

ELSE 

**********The rest of this subroutine contains the evaluation****** 
★*★*★**★★★* of shatter regime multiple cratering penetration******* 
######Shatter regime removed for independent use of ballistic###### 
################And fracture regime evaluation##################### 
SHATTER = .TRUE. 

RETURN 1 

END IF 
RETURN 
END 
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SUBROUTINE Fract (MR, VO , Vf , FTheta , MPro j , ToverD ) 

REAL MR,MProj 

IF (VO .GT.Vf+2000 . ) THEN 

MR = MProj*FTheta*.16 
ELSE IF (ToverD. GT. .25) THEN 
MR = MProj*FTheta* .25 

ELSE 

MR = MProj*FTheta* . 667 

END IF 
RETURN 
END 
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SUBROUTINE LarMR ( VR, MR, V50 , Thickness , 

: Ef f ectiveThicknessRatio, Theta, Diam, Pro jDensity, 

: TargetDensity, TargetYieldStrength, Penetration) 

REAL MR 

LOGICAL Penetration 

V50=SQRT ( (Thickness*Ef fectiveThicknessRatio/COS (Theta) / 

1 ( 0 . 281*Diain* (Pro jDensity /TargetDensity) **. 33333) ) 

2 ( 1 . / , 31) /Pro jDensity* (2 . *TargetYieldStrength) ) 

IF (VR.LT.V50) THEN 

Penetration = .FALSE. 

ELSE 

Penetration = .TRUE. 

END IF 
RETURN 
END 
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0001 

0002 SUBROUTINE MassErr (VI, MFCl, BHNC, RhoP, RhoT, Thick, Diam,MR) 

0003 REAL MR, MSI, MFCl 

0004 RhoC = RhoP*. 01873 

0005 RhoS = RhoT*. 01873 

0006 T = Thick*12. 

0007 DFCl = Diam*12 

0008 C DFCl = SORT (4*AC/PI) 

0009 UFC=SQRT (2680*BHNC/RHOC) 

0010 VP=V1/UFC 

0011 AC1=PI*DFC1**2/ (4*COS (THETA) ) 

0012 MS1=RH0S*T*AC1 

0013 MR=MFCl+0 .5*MS1*L0G(2 .74/ (1+VP**2) ) 

0014 MR = AMINl (MR,MFC1) 

0015 RETURN 

0016 END 
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c D 180-30550-4 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE SINGLE ( ANGR, DIA, VELE, VWTHK, DENS ^ FTU ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C single determines the critical projectile diameter for single plate 
C configurations. It is based on the Schmidt-Holsapple crater volume 
C ecjuation. The equation was solved for the critical diameter as a 
C function of the plate and projectile properties in english units. 

C It assumes that a hemispherical crater depth ecpaal to 70 percent of 
C the plate thickness causes failure. This is a attempt to account for 
C spall and was reccomended by Mike Bjorkman of the Boeing SHock Physics 
C group . 

C ‘ 

C 

C Ref; *On Scaling of the Crater Dimensions 2. Impact Processes*, 

C K.A. Holsapple & R.M. Schmidt, JGeophy Res, v87,nb3,10 March 1982, 

C P1849-70 

C 
C 

C Variable List 
C 

C angr = impact angle measured from the normal, radians 
C dia = critical projectile diameter, in 
C dr = intermediate variable 

C fr = 

C vele = relative velocity of the projectile, ft/sec 
C vwthk = vessel wall thickness, in 
C 

C Array list 
C 

C dens = density, lb/in**3 

C 1- shield 

C 2- vessel wall 

C 3- projectile 

C ftu = ultimate tensile strength, psi 

C 1- shield 

C 2- vessel wall 

C 3- projectile 

C 
C 

DIMENSION DENS (3) , FTU (3) 

C 

DR=(DENS (3) /DENS (2) ) ** (-0.159) 

V2= (VELE*COS (ANGR) ) **2 
FR=(2.6833*FTU(2) /DENS (3) /V2 ) **0.236 
C 

DIA=1 . 442*DR*FR*VWTHK 
C 

RETURN 

C 

END 
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^ D 180-30550-4 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE PEN4 ( ANGRr BHARD, C, DENS , DIA, VWTHK, FY, FSU, FTU, 

1 INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C PEN4 DETERMINES THE DIAMETER THAT JUST PENETRATES. IT ULTILZES 
C THE UPDATED BOEING'S HYPERVELOCITY CODE PEN4 VERSION 10. 

C 

C 

C VARIABLE LIST 
C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL , RADIANS 

C BHARD = ARRAY CONTAINING THE VALUES OF THE BRINNEL HARDNESS FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C C = ARRAY CONTAINING VALUES FOR THE SPEED OF SOUND FOR THE 
C SHIELD AND VESSEL WALL MATERIALS (FT/SEC) 

C DEN = PROJECTILE DENSITY (LB/CFT) 

C DENS = ARRAY CONTAINING VALUES FOR THE DENSITY FOR THE 
C SHIELD AND VESSEL WALL MATERIALS (LB/IN**3) 

C DIA = SPHERICAL PROJECTILE DIAMETER (IN) 

C DIAl = PREVIOUS DIAMETER THAT PENETRATED (IN) 

C DIA2 = DIAMETER THAT PENETRATED TWO ITERATIONS PREVIOUSLY (IN) 

C EVWTHK = EQUIVALENT VESSEL WALL THICKNESS , IN. 

C FY = ARRAY CONTAINING THE VALUES OF THE YIELD STRENGTH FOR THE 
C SHIELD & VESSEL WALL MATERIALS 

C FSU = ARRAY CONTAINING VALUES OF THE ULTIMATE SHEAR STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSI) 

C FTU = ARRAY CONTAINING VALUES OF THE ULTIMATE TENSILE STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSI) 

C I = COUNTER 

C INITIAL = LOGICAL PARAMETER USED TO DETRMINE IF CURRENT CALL 
C IS INITIAL ONE. 

C MASS = PROJECTILE MASS , LBS 
C N = INCREMENT MULIPLIER 

C PI = LAST MASS GUESS TO NOT PENETRATE 

C P2 = LAST MASS GUESS TO PENETRATE 

C PEN = TRUE OR FALSE 

C PI = 3.14 

C PMINCR = INITIAL MASS GUESS INCREMENT 

C RATIO = P2 / PI 

C SHATTER = LOGICAL PARAMETER USED TO DETERMINE IF PEN4 BALLISTIC 
C LIMITS HAVE BEEN EXCEEDED 

C SHPV = ARRAY CONTAING VALUES OF THE SHOCK PROJECTILE VELOCITY 
C FOR THE SHIELD AND VESSEL WALL MATERIALS , ( UNITLESS ) 

C SHTHK = SHIELD THICKNESS , IN. 

C SPACE = ARRAY CONTAINING THE SHIELD SPACING , FT . 

C STAND = SHIELD STAND-OFF , IN. 

C TARMAT = ARRAY CONTAINING MATERIAL PROPERTY POINTERS 

C THETA = IMPACT ANGLE (DEG) , MEASURED FROM THE NORMAL 

C THICK ^ SHIELD & VESSEL WALL THICKNESS , FT. 

C VELE = COLLISION VELOCITY , FT/SEC 
C VELl = VEL FOR DIAl 

C VEL2 = VEL FOR DIA2 

C VO = IMPACT VELOCITY (FT/SEC) 

C VR2 = RESIDUAL VELOCITY AFTER VESSEL WALL , FT/SEC 
C 
C 
C 

DIMENSION BHARD(3) ,C(3) ,DENS(3) ,FY(3) ,FSU(3) , FTU ( 3) , PDENS ( 3 ) , 
PFY(3) ,PFSU(3) ,PFTU(3) , SHPV (3) , SPACE (2) , THICK (3) , 
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0064 


TARMAT ( 3 ) 

0065 

C 


0066 


INTEGER PROJMAT, TARMAT 

0067 

C 


0068 


LOGICAL PEN, INITIAL, SHATTER 

0069 

C 


0070 


REAL MASS 

0071 

C 


0072 


SAVE DIA1,DIA2,P2,VEL1,VEL2 

0073 

C 


0074 

C 


0075 

C 

SET INITIAL VALUES 

0076 

C 


0077 


1 = 0 

0078 


N = 0 

0079 


PEN = .FALSE. 

0080 


PMINCR = l.OE-04 

0081 


PI = 3.1415926536 

0082 


PI = l.OE-06 

0083 

C 


0084 

C 

CONVERT VARIABLES TO PEN4 FORMAT AND UNITS 

0085 

C 

• 

0086 

C 


0087 


PROOMAT=2 

0088 


SPACE (1) = STAND/ 12.0 

0089 


SPACE (2) =0.0 

0090 


TARMAT ( 1 ) =1 

0091 


TARMAT (2) = 2 

0092 


TARMAT (3) = 0 

0093 


THETA = ANGR*180 . 0/PI 

0094 


THICK (1) = SHTHK/12.0 

0095 


THICK (2) = VWTHK/12.0 

0096 


THICK (3) =0.0 

0097 

C 


0098 

C 

PEN4 DOES NOT SOLVE FOR THE CRITICAL PROJECTILE DIAMETER DIRECTLY 

0099 

C 

THEREFORE AN ITERATIVE APPROACH IS TAKEN. PEN4 ONLY RETURNS 

0100 

c 

A LOGICAL PARAMETER INDICATING IF PENETRATION HAS OCCURED . 

0101 

c 


0102 

c 


0103 

c 

FOR INITIAL CASE SET P2 > 0.0 

0104 

c 


0105 


IF (INITIAL) THEN 

0106 


P2 = l.OE-04 

0107 


ENDIF 

0108 

c 


0109 

c 

IF SHATTER HAS OCCURED NO NEED TO CALL PEN4 , USE LINEAR APPROX. 

0110 

c 


0111 

c 


0112 

c 

DETERMINE INITIAL MASS THAT PENETRATES 

0113 

c 


0114 

100 

MASS = P2 + N * PMINCR 

0115 

c 


0116 


NC = NC + 1 

0117 

c 


0118 


CALL NPEN4 ( VELE, MASS, THETA, THICK, SPACE, PEN, SHATTER, PROJMAT, 

0119 


1 DENS,FTU,C ) 

0120 

c 


0121 


IF ( PEN ) THEN 

0122 

c 


0123 

c 

IF PENETRATION TRY WITH MASS BETWEEN PI & P2 

0124 

c 


0125 


PEN = .FALSE. 

0126 


P2 = MASS 
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MASS = ( PI + P2 ) / 2.0 

0128 

C 


0129 


NC = NC + 1 

0130 


CALL NPEN4 { VELE, MASS, THETA, THICK, SPACE, PEN, SHATTER, PROJMAT 

0131 


1 DENS,FTU,C ) 

0132 

C 


0133 

C 


0134 

200 

IF ( PEN ) THEN 

0135 

C 


0136 

C 

IF PENETRATION , SET P2 = MASS & CHECK RATIO 

0137 

C 


0138 


PEN = .FALSE. 

0139 


P2 = MASS 

0140 


RATIO = P2 /PI 

0141 


IF ( RATIO .LT. .995 .OR. RATIO .GT. 1.005 ) THEN 

0142 

C 


0143 

C 

IF TRUE TRY AGAIN BETWEEN PI & P2 

0144 

c 


0145 


MASS = ( PI + P2 ) / 2.0 

0146 


NC = NC + 1 

0147 


CALL NPEN4 (VELE, MASS, THETA, THICK, SPACE, PEN, SHATTER, 

0148 


1 PROJMAT, DENS, FTU,C ) 

0149 


GO TO 200 

0150 


ELSE 

0151 

c 


0152 

c 

IF FALSE , MASS IS WITHIN RANGE SO CONTINUE 

0153 

c 


0154 


GO TO 300 

0155 


END IF 

0156 

c 


0157 


ELSE 

0158 

c 


0159 

c 

IF FALSE , SET PI = MASS AND CHECK RATIO 

0160 

c 


0161 


PI = MASS 

0162 


RATIO = P2 / PI 

0163 


IF ( RATIO .LT. .995 .OR. RATIO .GT. 1.005 ) THEN 

0164 

c 


0165 

c 

IF TRUE , TRY AGAIN BETWEEN PI & P2 

0166 

c 


0167 


MASS = ( PI + P2 ) / 2.0 

0168 


NC = NC + 1 

0169 


CALL NPEN4 (VELE, MASS, THETA, THICK, SPACE, PEN, SHATTER, 

0170 


1 PROJMAT, DENS, FTU,C) 

0171 


GO TO 200 

0172 


ELSE 

0173 

c 


0174 

c 

IF FALSE , MASS IS WITHIN RANGE SO CONTINUE 

0175 

c 


0176 


GO TO 300 

0177 


END IF 

0178 


ENDIF 

0179 


ELSE 

0180 

c 


0181 

c 

IF FALSE INCREASE INCREMENT & TRY AGAIN 

0182 

c 


0183 


PI = MASS 

0184 


1 = 1 + 1 

0185 


N = 2 ** I 

0186 


GO TO 100 

0187 


END IF 

0188 

c 


0189 


P2=MASS 
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0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 


C 

C 

C 

C 

C 

300 

C 

C 

C 

C 

C 

C 

c 

c 

c 


CALCULATE DIAMETER 

DEN = DENS (3) *1728 .0 
DIA = ( (MASS*6.0) / (PI*DEN) ) 
CONVERT TO IN. 

DIA = DIA * 12.0 

RESET HOLDERS 

DIA2=DIA1 

DIA1=DIA 

VEL2=VEL1 

VEL1=VELE 


**(1. 0/3.0) 


C 

C 

C 


RETURN 

END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 
0063 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


SUBROUTINE NPEN4 (Vil , MPro j , Thetal , Thickl , Space, Pennon, 
: Shater , PrMatl, Dense 1, YStrnl, SoundV) 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

c 

C PrMat Integer Projectile Material 1: Steel, 2: Aluminum ,3:Ice 


CHARACTER Shape *3 
LOGICAL Pennon, Shater 
INTEGER Maxk(5) 

INTEGER PrMat, PrMatl,TarMat (10) ,TMatSp(10) , Plate, Bin, NBin, I 
REAL RF(5) ,RC(5) 

REAL NF, J,MR,MProj,LastSp,LRM,FrMass (5) 

REAL Diam, Vi, Vr, ViLRM, VrLRM, Epsil, Gamma, Vil, Pi, Theta, SumSp 
REAL A, B, D, R, X, Y, ToverD, Rh, PlateM, FTheta, AllMas , Vc, DelJ, DelJ2 
REAL P, Ef f P, Pet, Pgrady, Thetal, AvgMas, Rp, FI , Vf 
REAL Thick (10) , Space (9) ,Thickl (10) , 

PDense(3) ,PYStrn(3) ,PSondV(3) ,FrTuff (3) , 

Dense (10) , YStren(lO) ,SoundV(10) 

REAL Densel (10) , YStrnl (10) 

REAL ViX,MrMax,MProjX 
DOUBLE PRECISION Intact , HoArea 
DOUBLE PRECISION SumPr(5) 

DOUBLE PRECISION Nr , Per , Lambda, SigSq, Sigma, Pk, As , Ac 


C 


COMMON /Prob/Nr (5) ,Pcr (5) , Lambda (5) , SigSq(5) , Sigma (5) 
COMMON /Crater/As, Ac (5) , P (5) 

Steel Aluminum Ice 


DATA PDense/ 
DATA PYStrn/ 
DATA PSondV/ 
DATA FrTuff/ 


15.11 , 5.39 , 1.94/ 

8.35E+07 , 5485000., 0.0/ 

14960. , 17569., 0.0/ 

36. , 39., 39./ 


C PrMat Projectile Material 1: Steel, 2: Aluminum , 3 : Ice 

C Calculation units 


c 

Dense 

in Slugs/CubicFoot 

Density 

c 

YStren 

in Lbs/SquareFoot 

Uniaxial Ultimate Stress 

c 

SoundV 

in Feet/Second 

Speed of Sound 

c 

Theta 

in Radians 

Impact Angle 

c 

FrTuff 

in MegaPascals Meter' 

, 5 Fracture Toughness 

c 

Input units 


c 

Densel 

input in Lbs /Cubic Inch 

c 

YStrnl 

input in PS I 


c 

SoundV 

input in Feet /Sec 


c 

Vil 

Feet /Sec 

Impact Velocity 

c 

MPro j 

Pounds 

Projectile Mass 

c 

Thetal 

Degrees 

Striking Angle 

c 

Thick 

Feet 

Target Plate Thickness 

c 

Space 

Feet 

Spacing Between Target Plates 

c 

Outputs 



c 

Pennon 

Logical 

Penetration Flag 

c 

Shater 

Logical 

Fragment Shatter Flag 


DATA Gamma/1.5708/ 

DATA Fl/4 . 0/ 

DATA NBin/ 5/ 

DATA TarMat/1, 2, 3, 4, 5, 6, 7, 8, 9, 10/ 
DATA TMatSp/2,2,2,2,2,2,2,2,2,2/ 
DO 10 Plate=l, 10 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


Thick (Plate) =Thickl (Plate) 

Dense (Plate) =Densel (Plate) /32. 2*1728. 

YStren (Plate) =YStrnl (Plate) *144 , 

10 CONTINUE 

Theta = Thetal/57.3 
P rMa t = P rMa 1 1 
C END DO 

Vi=Vil 

PI=3. 1415 92 65358 97 93 
Shater =. FALSE. 

Q **************Calculate Radius of Projectile sphere************* 

RP=(MProj*3./ (PDense (PrMat) *32.2*4.*PI) )**(!. /3.) 

Diam = RP * 2. 


C 

C 


C 


C 

C 


C 

C 


C 

C 

c 


DO 2040 Plate=l,10 

IF ( .NOT. Shater) THEN 

*** This option is for single penetrators******************* ** * * * * 
**Compute Residual Velocity 

Call ResVel 

(Vr, Vi, RP^ PDense (PrMat) , Dense (TarMat (Plate) 

Thick (Plate) , Theta, PrMat , TMatSp (Plate) ) 


★★★★★★★★★★★★★★IP No Penetration Report Result and Exit ********** 
IF (Vr.EQ.O.) THEN 
Pennon * .FALSE. 

RETURN 

ELSE IF (Thick(Plate+l) .EQ.O.O.OR.Plate.EQ.lO) THEN 
Pennon * . TRUE . 

RETURN 
END IF 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★*******************Vr^^****^* 


**************Mass Loss Regime Decision BAG ir&d**************** 
ToverD = Thick (Plate) /Diam 


IF (PrMat .EQ.2 .AND.TMatSp(Plate) .EQ.2) THEN 
IF (ToverD. LT. .1) THEN 
Vf = 1116*ToverD** (-.55) 

ELSE 

Vf = 4757*ToverD**.08 
END IF 

ELSE IF (PrMat. EQ.l. AND. TMatSp (Plate) .EQ.2.) THEN 
IF ( Shape. EQ. 'CYL' ) THEN 
Vf-5020* ToverD**. 4 


ELSE IF ( Shape. EQ. 'CUB') THEN 
Vf = AMAXl (1450*ToverD** (-.39) , 

4561*ToverD**42* (Diam*12*2 . 54) ** (-. 33) ) 

ELSE 

Vf = AMAXl (1450*ToverD** (-.39) , 

4561*ToverD**.42* (Diam*12*2 . 54) ** (-.33) ) 


Vf = AMAXl (2362*ToverD** (-.35) * (Diam*12*2 .54) ** (- . 32) , 
3937*ToverD**.23 * (Diam*12*2 . 54) ** (-.25) ) 

END IF 

ELSE IF (PrMat. EQ.l. AND. TMatSp(Plate) .EQ.l.) THEN 
Vf = 7021*ToverD**.39 
END IF 

★★★★*★★★★★★★★★★★★★★★★★★★★★★★★★★★★★***★★★★★*★★★★★★★*★******★**** 
RH=RP* (1 .372E-4*Vi* (THICK (Plate) / (2 . *RP) )**(2./3.)+.9)* 
(1-EXP(-(1. 48-Theta)/. 166) ) 

RH = .5*Thick (Plate) *11.02* (1-EXP (- (1. 48-Theta) / .166) ) * 

(1-EXP (- (PDense (PrMat) *Vi**2/YStren (TarMat (Plate) ) ) ** . 415 
* (PDense (PrMat ) /Dense (TarMat (Plate) ))**(-. 15) /ToverD/29 . 9) ) 
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0127 

0128 

0129 

0130 

0131 C 

0132 

0133 

0134 C 

0135 C 

0136 

0137 

0138 C 

0139 C 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 2010 

0157 

0158 

0159 

0160 C 

0161 C 

0162 C 

0163 

0164 

0165 C 

0166 

0167 C 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 C 

0180 C 

0181 C 

0182 

0183 C 

0184 

0185 

0186 

0187 

0188 
0189 


RH = AMAXl (RH,RP) 

IF (Vi.GT.Vf ) THEN 
SuinSp=Space (Plate) 

Shater= . TRUE . 

Coiupute plate spall ****‘*^****************'******^**'*’'******'* * * 
PlateM=PI*RH**2/COS (Theta) ‘Thick (Plate) * 

Dense (TarMat (Plate) ) *32 , 2 

*********Hydrocode Predicted Mass Loss Due to Impact Angle****** 
FTHETA=-2. 433E-4 - 1 . 643E-2*COS (THETA) +3 . 201*COS (THETA) **2- 
2 . 184*COS (THETA) **3 

★ ★★***★★★★★*★*■*★***********★*★*****•****★★***★****★************** 
*** COMPUTE FRAGMENT NUMBERS****************************^******* 
IF (PrMat .EQ.3) THEN 
MPro j^PlateM 

RP= (PlateM*3 . / (Dense (TarMat (Plate) )*32.2*4.*PI))**(1,/3J 
END IF 

CALL MasChr (Vi^ MProj , ToverD ^ Theta , RP , PDense (PrMat ) , 

Dense (TarMat (Plate) ) ^ PSondV (PrMat ) , NBin, 

RF,NR, LRM,AvgMas,PrMat,FrTuff (PrMat) ) 

IF (PrMat .EQ. 3) THEN 
PrMat=TMatSp (Plate) 

ELSE 

A1 IMa s = P 1 a t eM+MP r o j 
DO 2010 I=l,NBin-l 

FrMass (I) =4 . /3 . *PI*RF (I) **3*PDense (PrMat) *32.2 
NR(I) =NR(I) *AllMas/MPro j 
CONTINUE 
END IF 

Nr(NBin) = l.DO 
ViLRM^Vr 

********** Spray Angle******************************** 
Vc =11155*ToverD** (-.52) 

Epsil = 45*(l-EXP((-(Vi-Vf)/Vc)))/57.3 
Vc = 4889 * ToverD** (-.23) 

Epsil = 52*(l-EXP((-(Vi-Vf)/Vc)))/57.3 

*** Assurance of ThetaR+Epsil<90 and Spray Area f inite***********- 
ThetaR = AMINl (Theta, 1.41-Epsil) 

*** Calculate Spray Area**************************************** 
DELJ=RP/2 .0* (COS (EPSIL) -TAN(ThetaR) *SIN (EPSIL) ) 

DELJ2=RP* (l.O-TAN(ThetaR) *TAN (EPSIL) ) 

J=Space (Plate) *SIN (GAMMA) /SIN (ThetaR+GAMMA) 

X= ( J*SIN (EPSIL) /2 .+DELJ) * (1 ./SIN (ThetaR+GAMMA+EPSIL) - 
1 . /SIN (ThetaR+GAMMA-EPSIL) ) 

Y=X*SIN (ThetaR+GAMMA) 

R= ( J-X*COS (ThetaR+GAMMA) ) *TAN (EPSIL) +DELJ2 
B=SQRT (R**2-Y**2) 

A= (J*SIN (EPSIL) /2 .+DELJ) * (1. /SIN (ThetaR+GAMMA- 
EPSIL) +1 . /SIN (ThetaR+GAMMA+EPSIL) ) 

AS=PI*A*B 

★**★**★**★******★★★*****★**★*★★*★★********★★★★*★★*★★**★** 

*** Allowance for increased penetration due to spalling of **** 
*** next plate ************************************************ 
EffP=1.7 

**************************************************************** 

ELSE 

IF (PrMat. EQ. 3) THEN 

MPro j=3 . 1415926*Rh**2*Thick (Plate) 

‘Dense (TarMat (Plate) ) ‘32.2 
PrMat=TMatSp (Plate) 

END IF 
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0190 

0191 

0192 C 

0193 

0194 

0195 C 

0196 C 

0197 

0198 C 

0199 C 

0200 

0201 C 

0202 

0203 C 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 

0222 C 

0223 

0224 C 

0225 

0226 

0227 

0228 

0229 

0230 

0231 C 

0232 2030 

0233 C 

0234 C 

0235 C 

0236 C 

0237 C 

0238 C 

0239 

0240 

0241 

0242 C 

0243 

0244 

0245 

0246 

0247 

0240 2110 

0249 

0250 

0251 

0252 2210 


Vi=Vr 
END IF 

**★*★★**★*★★****★★■**★★★**★*★***★*********★***★**•****★**★★****★* 

ELSE 

★ rest of this subroutine contains the evaluation* 

*★***★★★*★* of shatter and fracture regime multiple cratering* 

*** Allowance for increased penetration due to spalling of **** 
*** next plate **★****★******★***★★***★★★*★****★★★**★★***★★★★*★ 
Thick (Plate) =* Thick (Plate) /EffP 

*★*★***★★****★★*★★★★***★★★*★★★*★***********★★***★★**★★★■*■***★*★** 

*** COMPUTE PLATE CRATER Depth and Radius*********************** 
DO 2030 I=l,NBin 
D=2 . *RF (I) 

PGrady=0 . 281*D* (PDense (PrMat ) /Dense (TarMat (Plate) ) ) ** ( 1 . /3 . ) 

* (PDense (PrMat) * (Vr*COS (Theta) ) **2/ 

(2 . *YStren (TarMat (Plate) ) ) ) **0 . 31 
IF (PrMat. EQ.l) THEN 

Pet = D*(Vr*COS (Theta) /12468.) **1.32 
P(I) « AMINl(Pet,PGrady) 

IF (Vr.LT. 3. 9*3281) THEN 

RC(I) = P(I)/2.*(Vr/3281./3.8)**(-1.32) 

ELSE 

RC(I) - P(I)/2.*(Vr/3281./4.6)**.2 
END IF 
ELSE 

Pet = D*2.33E-5* (Vr*COS (Theta) ) **1.16 
P(I)= AMINl (Pet,PGrady) 

RC(I) =P (I) / (1-EXP (-Vr/5578. ) ) 

END IF 

*★*★*******★★★★**★★★**★★★★**★★★★*★★★★★*★★★** ★★★**★*★*** 

*** COMPUTE AVERAGE IMPACTS WITHIN CRATER************** 
AC(I)=PI*RC(I) **2/Fl 
AC(I)-DMINl(Ac(I) , .999999999999D0*AS) 

PCR(I)=DMIN1 (1D0,AC(I) /AS) 

LAMBDA ( I ) =NR ( I ) *AC ( I ) /AS 
SigSq(I) =■ Lambda ( I) * (IDO-PCR ( I) ) 

Sigma (I) = SQRT (SigSq(I) ) 

CONTINUE 

New Version eight section************************** 

*** This subroutine finds the minimum number of each*** 

*** size particle that must impact in one crater to *** 

*** penetrate the plate ,how many craters they are in,* 

*** and how many fragments are involved in shallower*** 

*** craters .***********t*^******************************* 

CALL PenK (Plate, Thick, NBin,Maxk) 

CALL Count r 

(NBin, P, Thick (Plate) ,Maxk, Intact , Nr, Ac, As) 

*** Number and Area of Holes and Residual Particles**** 
HoArea*As* (1 .DO-Intact) 

PlateM =* HoArea*Thick (Plate) *Dense (Plate) *32 . 2 
AllMas»0 . 

DO 2110 I=l,NBin-l 

AllMas=FrMass (I) *Nr (I) -HAllMas 
CONTINUE 

IF (AllMas.GT.O) THEN 
DO 2210 I*l,NBin-l 

NR(I)=NR(I) * (l.+PlateM/AllMas) 

CONTINUE 
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0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 


END IF 

C *** Separate calculation for LRM**** 

C *** This option is for single penetrators******************** ** * * * 

Call ResVel 

: (Vr, ViLRM.RF (NBin) , PDense (PrMat) ^ Dense (TarMat (Plate) ) , 

: Thick (Plate ) , Theta, PrMat, TMatSp (Plate) ) 

C ** Convert V to Km/S and MProj to grams 

ViX = Vi/3281. 

MProjX = LRM * 454. 

C ** Largest Residual Mass ** 

ToverD=*Thick (Plate) /2 . /Rf (NBin) 

CALL RFMax (MProjX, PDense (PrMat) , ViX, RF (NBin) , ToverD, MRMax, 

: PSondV (PrMat) , PrMat , Vc, Theta, FrTuff (PrMat) ) 

LRM=MrMax/454 

RF (NBin) = (LRM*3. / (PDense (PrMat) *32 . 2*4 . *PI) ) ** ( 1 . /3 . ) 

Q *★****★★★****★****★★★******★★*****★**★*★*★*★**★★★★★*******★★*★★* 

Q Test for Pennon and End of Run*********************** 

IF (HoArea.LT. . 000000069 .AND .Vr . LE . 0 . 00001) THEN 
C IF (HoArea.LT.AC(l) ) THEN 

Pennon = .FALSE. 

RETURN 

ELSE IF (Plate ,EQ. 10 .OR. Thick (Plate+1) . EQ . 0 . 0) THEN 
Pennon - . TRUE . 

RETURN 
END IF 
ViLRM^Vr 
LastSp=*SumSp 
SumSp=S;amSp+Space (Plate) 

As=As* (SumSp/LastSp) **2 

Q **★★***★★★★*★*★★★*★*★★★***★*★★**★*****★*******★************ 

Q *★★★**★**** *************eND OF SHATTER EVALUATION************** 

END IF 
2040 CONTINUE 
RETURN 


0291 END 


C - 45 



D 180-30550^4 


0001 

0002 

0003 C 

0004 C 

0005 C 

0006 C 

0007 C 

0008 C 

0009 C 

0010 C 

0011 C 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 


SUBROUTINE RFMax (M, RhoP, V, RP, ToverD.MrMax, C, PrMat, Vc, Theta, Kic) 


M Initial Impactor Mass 

MrMax Mass of the Largest Residual Particle 
RhoP Impactor Density 

Rp Initial Impactor Radius (equivalent sphere) 

V Impactor Velocity 

Shock Velocity 
Kic Fracture Toughness 
Theta Approach angle 
PrMat Projectile Material 1: Steel, 2: Aluminum , 3 : Ice 
REAL Kic, k, MrMax, M,MrOMs,MrOMsC 
REAL MrMaxP,MrOMsP 
REAL MrMaxT,MrOMsT 
REAL RhoP, V, RP, ToverD, C, FTovrD, Vc 
INTEGER PrMat 


Grams 

Same as above 
S lugs /Ft 3 
Ft 

Km/ Sec 
Ft/Sec 
MPa m'" .5 
Radians 


k=4.18E6 

IF ( ToverD. LT. .1) THEN 
FTovrD=1180 . 

ELSE IF (ToverD. GE. .1. AND, ToverD. LT. .2) THEN 
FTovrD*697*ToverD** (-.23) 

ELSE IF (ToverD. GE. .2 .AND. ToverD. LT. . 4) THEN 
FTovrD=244*ToverD** (-.881) 

ELSE IF (ToverD. GE. .4. AND. ToverD. LT. ,8) THEN 
FTovrD“1500*ToverD**l . 1 


ELSE 


FTovrD=1170 . 


END IF 

IF (PrMat .EQ.l) THEN 
FTovrD“FTovrD*7 .78 
END IF 

MrOMs = k* (Kic/ (RhoP*32 .2*0 ) **2/V**2/ (RP*2*12*2 .54) ^FTovrD 
MrOMsT = MrOMs *COS (Theta) ** (-2) 

MrOMsP =* MrOMs *COS (Theta) 

Vc =(8.47E4*MrOMs*V**2) ** (1/10.93) 

IF (V.LT.Vc) THEN 
MRMaxP“M*MrOMsP 
ELSE 

MrOMsC=l . 18E-5* (Vc) **8 . 93 
MrMaxP=M*MrOMsC* (V/Vc) ** (-5.5) 

END IF 

IF (V*COS (Theta) .LT.Vc) THEN 
MRMaxT-M*MrOMsT 
ELSE 

MrOMsC=l . 18E-5* (Vc) **8 . 93 
MrMaxT*M*MrOMsC* (V*COS (Theta) /Vc) ** (-5.5) 

END IF 


MrMax = AMAXl (MrMaxP,MrMaxT) 
IF (PrMat. EQ.l) MrMax*MrMaxP 
MrMax = AMINl (MrMax,M*.9999) 
RETURN 
END 
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C 

C 

C 

C 


C 

C 



C 

C 

C 

C 

C 

C 

C 

C 
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C 

C 

C 

C 

C 


C 

C 
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SUBROUTINE PenK (Plate, Thick, NBin, Maxk) 

DOUBLE PRECISION Nr , Per , Lambda, SigSq, Sigma, Pk ( 5 ) , SuitiPr ( 5 ) , Pk2 

DOUBLE PRECISION As,Ac,TestAc 

INTEGER Bin,Plate,MaxK{5) , I, BinsDo, NBin 

REAL Thick(lO) ,P, Vc 

LOGICAL BINDON(5) 

INTEGER k (5), Mini 

DOUBLE PRECISION kProbs (5, 0 : 15) 

REAL LnPk, LnkFac 
COMMON / Count /kP robs 

COMMON /Prob/Nr (5) , Per (5) , Lambda (5) , SigSq (5) , Sigma (5) 

COMMON /Crater/As, Ac (5) ,P (5) 


*** k(NBin) is the number of each particle size that must **** 

*** impact in one crater to make a hole.******************* 

★** This loop finds the fraction of the plate that is not hit by ****** 
*** a fragment of size I (P(0)). BinDon are initialized*** 
TestAC=lD0-lD-3*Ac (1) /As 
BinsDo==0 
DO 10 1=1, NBin 
k(I)=0D0 

CALL Prs (I,Pk(I) ,k,NBin) 
kProbs(I,0)=Pk(I) 

SumPr (I)=Pk(I) 

*** If there is not room for one more crater on the plate then ****** 


★ ★ ★ 
IF 


stop using this particle size *********************************** 
(SumPr(I) .GT. Test Ac. OR. 

(K(I) *P (I) ) .GT.Thick(Plate) ) THEN 


BinDon ( I) =. TRUE. 

BinsDo=BinsDo+l 

kProbs (I, 1) =lD0-kProbs (I, 0) 


ELSE 

BinDon (I) =. FALSE. 


END IF 


CONTINUE 
END DO 

************************************************************************ 
*** This subroutine finds which fragment size has the least SumPr ***** 
*** SumPr is the fraction of the plate that has craters of depth <= k^* 
*********************************************************************** 
*** This loop sums up the area of the plate that is not penetrated,*^** 
*** while keeping the area covered by craters of depth <=k for each *** 
*** size approximately equal .******* ***********'^*'*'******************^** 
IF (BinsDo. GE.NBin-1) GOTO 30 

CALL Minil (Mini, BinDon, NBin, SumPr) 
k(Minl) = k(MinI)+l 

This subroutine Calculates the fraction of the plate that is 
*** covered by craters from exactly k particles of size Mini 
CALL PrS (Mini, Pk (Mini) , k, NBin) 

********************************************************************* 
*** Add up the fraction of the spray area accounted for, and the **** 
*** fraction of the particles used so far**************************** 
SumPr (Mini) =SumPr (Mini) +Pk (Mini) 
kProbs (Mini, k (Mini) ) =Pk (Mini) 

**★★★★****★★**★★★*★★**★★★★★*★★★**★**★★*****************★*********** 
*** If there is not room for one more crater on the plate then ****** 
*** stop using this particle size************************************ 
IF (SumPr (Mini) . GT . TestAc . OR . 

: (K(Minl) *P (Mini) ) .GT. Thick (Plate) ) THEN 

BinDon (Mini ) = . TRUE . 

BinsDo=BinsDo+l 


★ ★ ★ ^ 
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0064 Maxk (Mini) =K (Mini) . 

0065 END IF 

0066 C ********************************************************************* 

0067 GOTO 20 

0068 30 CONTINUE 

0069 K(NBin) = 1 

0070 kProbs (NBin, 1) =lD0-lcProb3 (NBin, 0) 

0071 Maxk (NBin) = 1 

0072 C *********************************************************************** 

0073 RETURN 

0074 END 
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SUBROUTINE Minil (Mini , BinDon, NBin, SumPr) 

LOGICAL BinDon{5) 

INTEGER BinsDo 

DOUBLE PRECISION SumPr , MinSuiti 
DIMENSION SumPr (5) 

MinSum=lD0 
DO 10 I=l,NBin-l 

IF (.NOT.BinDon(I) . AND , SumPr (I) .LT.MinSum) THEN 
MinI=I 

MinS\im=SumPr (I) 

END IF 
10 CONTINUE 
C END DO 

RETURN 
END 
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SUBROUTINE PrS ( I , Pk, k, NBin) 

DOUBLE PRECISION LastTe (5) , PkMin, FPi 
DOUBLE PRECISION Nr, Per, Lambda, SigSq, Sigma , Pk, SumPr 
DOUBLE PRECISION As, Ac 
DIMENSION k(5) 

DIMENSION PkMin(5) ,kMin(5) 

COMMON /Prob/Nr (5) ,Pcr (5) , Lambda (5) ,SigSq(5) , Sigma (5) 
FPi=lD0/SQRT (2D0*3 . 141592 6D0) 

IF (Nr(I) .GE.50 :aND. L ambda (I) .LT.5) THEN 

*** This section calculates the poisson approximation to *** 
*★* the binomial distribution*********************^********* 

IF (K(I) ,EQ.0)THEN 

*** Initialize P(k) for first value*********************** 
Pk=DEXP (-Lambda (I) ) 

★ ★★***★*■★*★★★★*★★★**★★★★**★★★★**★******★★***★**★*★*★★***** 
ELSE 

*** Calculate P (k) from P (k-1) *****^**************5r******* 
Pk=LastTe (I) *Lambda (I) /K(I) 

★★★★★***★★**★★★*★*★★★*★★*★**★★★★★★*★★★★***★★★★********★**★ 
END IF 

LastTe (I) =Pk 

★ ★★★***★***★★**★★★**★★★★**★★★★**★*★**★★*****★★**★ * ★ ■**■**★***•* 
ELSE IF (Per (I) .GT. . 1. AND. Per (I) .LT. .9. AND. 

Nr (I) .GT. 9./ (Per (I) * (1-Pcr (I) ) ) ) THEN 
*** This seetion ealculates the normal approximation to **** 
*** the binomial distribution********************* ********** 
Pk=FPi/Sigma(I) /DEXP (1/ (2 .D0*SigSq(I) * (k(I) -Lambda (I) ) **2) ) 
*★★★★*★★*★**★**■**★*★★*★★★★*★★★★***★★★★***★**★★★★*★***★★***** 

ELSE 

***This section calculates the binomial distribution********** 
IF (k (I) .EQ. 0) THEN 

*** Find least non-zero P (k) and corresponding k************ 
CALL SetBin(I,PkMin,kMin,NBin) 

LastTe(I)=PkMin(I) 

IF (kMin(I) .EQ.O) Pk*PkMin(I) 

★ *★***★★★**★★★***★★★**■*★★★*★***★******★★★★**★★**★★★*★**★**★* 
ELSE IF (k (I) .GT.kMin (I) ) THEN 

*** ealeulate the non-zero p (k) s**************************** 
Pk = LastTe(I) *Per(I)/(lD0-Pcr(I))*(Nr(I)-k(I)+lD0) /k(I) 
LastTe (I) =Pk 

ELSE IF (k (I) .EQ.KMin(I) ) THEN 
Pk = PkMin(I) 

ELSE 

Pk = ODO 
END IF 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A-*** 

END IF 
RETURN 
END 
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0001 

0002 SUBROUTINE SetBin { I , PJcMin, kMin.NBin) 

0003 C *** The Probability of the mean case occuring is computed ****** 

0004 C *** in subroutine Binomial. P(kMin) is calculated from ******** 

0005 C *** this P (Lambda) . The magnitude of P(kMin) is arbitrarily *** 

0006 C * * chosen to be about 7 , *******^***^*******^*********** ** 

0007 

0008 COMMON /Prob/Nr (5) , Per (5) , Lambda (5) , SigSq(5) , Sigma (5) 

0009 

0010 DOUBLE PRECISION Nr , Per , Lambda, SigSq, Sigma, Pk, SumPr, N1 , PkMin, PI 

0011 DIMENSION PkMin (5) ,kMin (5) 

0012 k=Lambda(I) 

0013 Nl=Nr(I) 

0014 Pl=Per(I) 

0015 CALL Binomi (k,Nl,Pk,Pl) 

0016 1 IF ( .NOT . (Pk.GT . lD-13 .AND .k.GE. 1) ) GOTO 10 

0017 Pk = Pk* (IDO-Per (I) ) /Per (I) *k/ (Nr (I) -k-lDO) 

0018 k = k-1 

0019 GOTO 1 

0020 10 CONTINUE 

0021 C END DO 

0022 kMin(I)=k 

0023 PkMin(I)=Pk 

0024 RETURN 

0025 END 
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SUBROUTINE Binomi (kl, Nr, Pk, Per) 

DOUBLE PRECISION Nr 

DOUBLE PRECISION Pk, Per , Lambda, LastPk, Qcr 
DOUBLE PRECISION Top, Lowerl , Lower2 , k, Expon 
Lambda=kl 
k=kl 

C **********Binomiai Distribution, Calculates p (k) ********^*** 

Lowerl = OdO 
Lower2 = OdO 
Top = Nr-k 
Pk = IdO 
Qcr = IDO-Pcr 
LastPk = ODO 
IF (Qcr.EQ.l.DO) THEN 
IF (k.EQ.O.DO) THEN 
Pk=l .DO 
ELSE 

Pk=0 .DO 
END IF 
ELSE 

3040 IF (Lowerl+Lower2+Top.GE. (2*Nr) .OR. Pk.EQ. LastPk) GOTO 3030 
LastPk » Pk 

3060 IF (Top.GE.Nr .OR.Pk.GE.lE23) GOTO 3050 

Top = Top + IDO 
Pk * Pk * Top 
GOTO 3060 
3050 CONTINUE 

3080 IF (Lowerl. GE.k. OR. Pk.LE.lE-20) GOTO 3070 

Lowerl = Lowerl + IdO 
Pk = Pk /Lowerl*Pcr 
GOTO 3080 
3070 CONTINUE 

IF (Lowerl .GE.k. AND . Lower2 . LT . Nr-k . AND . Pk . GT . lD-2 7 ) THEN 

Expon=DMINl ( ( (-28 .DO-DLOGIO (Pk) ) /DLOGIO (Qcr) ) , (Nr-k-Lower2 ) ) 
IF (Expon. GT.O) Pk=Pk*Qcr**Expon 
Lower2 = Lower2+Expon 
ENDIF 
GOTO 3040 
3030 CONTINUE 
END IF 

RETURN 

END 


c 
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SUBROUTINE MasChr (V,M, ToverD, Theta, RP, RhoP, RhoT, C, NBin, 

: MenRad,Nr,MrMax,MAvg, PrMat , FrTuf f ) 

DOUBLE PRECISION NR (5) 

REAL MPro j,M,MRMax,MAvg,MenRad(5) ,MPlate 
REAL MasLim, NrmF, NrmS, BinMen (5) , BinMas (0:5) 

INTEGER Bin,PrMat 
PI = 3,14159 

C This subroutine divides the residual mass into bins of equal mass 

C The number of fragments in each bin are also noted 

C ** Convert V to Km/S and MProj to grams 

Vi = V/3281. 

MProj = M * 454. 

MPlate = M * 454. 

C ** Largest Residual Mass ** 

IF (PrMat.EQ.3) THEN 
CT = 17569 
RhoT =5.39 

CALL RFMax (MPlate , RhoT, Vi, RP , ToverD, MRMax, 

: CT, PrMat,Vc, Theta, FrTuff) 

ELSE 

CALL RFMax (MProj, RhoP , Vi , RP , ToverD , MRMax, 

: C, PrMat,Vc, Theta, FrTuff) 

END IF 

C ** Average Residual Mass ** 

CALL A vgRe s (ToverD, Theta, MPlate, Vi, Alfa, MA vg ) 

IF (Vi.GT.Vc) MAvg=MAvg* (Vi/Vc) ** (-5.5) 

C ** Parameters and Normalization Constants for Weibull Distribution 

CALL ShCons (ToverD, Theta,MPro j, Vi,MAvg, 

: bS, sS, bF, sF, NrmS , NrmF, MRMax) 

C ** Size Shatter Begins ** 

CALL Shhold (MProj, Vi, TD, Theta, MAvg, bF, sF,bS, sS, 

: NrmF, NrmS , FrgLim, MasLim, MRMax) 

C ** Upper Bound and Mean Fragment weight for each Bin ** 

CALL BinLim (NBin , MAvg, MRMax, BinMas , BinMen , MP ro j , 

: sF, bF,sS, bS, NrmS, NrmF, MasLim) 

C ** Loop Determining Number of Fragments in each Bin in Shatter Regime * 

DO 10 Bin = l,NBin-l 

Nr (Bin) = (BinMas (Bin) -BinMas (Bin-1) ) /BinMen (Bin) 

10 CONTINUE 
C END DO 

Nr (NBin) = 1 

C ** Convert Bin Masses into lbs from grams then to Radius in Feet** 

DO 20 Bin = l,NBin 

BinMen (Bin) =BinMen (Bin) /454 . 

MenRad(Bin) = (BinMen (Bin) *3 ./ (RhoP*32 . 2*4 . *PI) )** (1 . /3 . ) 

20 CONTINUE 
C END DO 

MrMax=MrMax/ 454 . 

MPlate = MPlate/454. 

MProj = MProj/454. 

RETURN 

END 
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0002 


SUBROUTINE MasDis (M, MAvg, b, s, NrmCr MasSum) 

0003 

C 


0004 

C 

THIS PROGRAM COMPUTES SHATTER Mass distributions 

0005 

C 

STEEL CUBES ON ALUMINUM PLATE DATA. 

0006 

C 

V - IMPACT VELOCITY (FEET/SECOND) 

0007 

C 

TD * T OVER D 

0008 

C 

M = PROJECTILE MASS (GRAINS) 

0009 

C 

THETA = ANGLE OF OBLIQUITY 

0010 

C 

ALPHA^ANGLE OF IMPACT 

0011 

C 


0012 


REAL MAvg, M, NrmCr MasSum 

0013 


W = M/MAvg 

0014 

C 

**Mass in Bin** 

0015 


determ=b+s*LOG (W) 

0016 


IF (Determ.LT.-80) THEN 

0017 


MasSum=0 

0018 


ELSE IF (Detenn.LT.4) THEN 

0019 


MasSum == NrmC* (1-EXP ( -EXP (Determ) ) ) 

0020 


ELSE 

0021 


MasSum=NrmC 

0022 


END IF 

0023 


RETURN 

0024 


END 
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SSSSSSSSSSSSSS SALVORS CHANGES SSSSSSSSSSSSS 

SUBROUTINE ShCons (TD, Theta, M, Vi, MAvg, 

: bS, sS,bF, sF, NrmCS,NrmCF, LRM) 

REAL M,NntiCS,NrmCF,MT2,MAvg, IntegS, IntegF, LRM 
sS=1.8-.04*TD/COS (THETA) -,042*M 
& +.34* (COS (2 . *ALPHA) **2 . ) - (1-EXP (-. 64*Vi) ) 

bS=-2 . 3-1 . l*TD/COS (THETA) + . 0675*M 
& -.27*Vi+l . 4* (COS (2 . *ALPHA) **2 . ) 

sF=l .38-.510*TD/COS (THETA) +. 03 6*M 
& +3 .31* (COS (2 . *ALPHA) **2 . ) - (1-EXP (- . 390*Vi) ) 

bF=-l . 17+.313*TD/COS (THETA) +. 0675*M 
& +.508*Vi-l .41* (COS (2 . *ALPHA) **2 . ) 

** Total mass in shatter regime ** 

MT2 =(-. 957+EXP (-,0013*M) ) * (Vi** ( .38*M+2 .5) ) 

MT2 = AMAXl (MT2, lE-20) 

MT2 = AMIN1(MT2,M) 

**Normalizat ion to Largest Residual Mass** 

IntegS = 1-EXP ( -EXP (bS) * (M/MAvg) **sS) 

IntegF = 1-EXP ( -EXP (bF) * (M/MAvg) **sF) 

NrmCS == MT2/ IntegS 
NrmCF = M /IntegF 
detrml=bS+sS*ALOG (LRM/MAvg) 

IF (Detrml.LT.-15) THEN 
NrmCS=le-30 

ELSE IF (Detrml.LT.4) THEN 
IntegS = 1-EXP (-EXP (Detrml) ) 

NrmCS = MT2/ IntegS 
ELSE 

NrmCS = MT2 
END IF 

detrm2=bF+sF*LOG (LRM/MAvg) 

IF (Detrm2 .LT.-15) THEN 
NrmCS=le-30 

ELSE IF (Detrm2 .LT.4) THEN 
IntegF = 1-EXP (-EXP (Detrm2 ) ) 

NrmCF = M/ IntegF 
ELSE 

NrmCF = M 
END IF 

if (sF) 1,2,2 
sF=0 . 

if(sS)3,4,4 
sS=0 . 

RETURN 

END 
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0001 

0002 


SUBROUTINE Shhold (MProj, Vi, TD, Theta, MAvg,bF, sF,bS, sS, 

0003 


: NnnF, NrmS , FrgLim, MasLim, LRM) 

0004 


REAL LowLim,Mean, Mf S|rMss,MAvg, MasLim, MPro j , NrmF, NrmS, M, LRM 

0005 


HiLim = MProj 

0006 


LowLim = 0 

0007 


DO 10 1=1,20 

0008 


Mean = (HiLim+LowLim) /2 

0009 


CALL MasDis (Mean, MAvg, bF, sF, NrmF,Mf s ) 

0010 


CALL MasDis (Mean, MAvg, bS, sS, NrmS, Mss) 

0011 


IF (Mf s , GT .Mss) THEN 

0012 


HiLim = Mean 

0013 


ELSE 

0014 


LowLim = Mean 

0015 


END IF 

0016 

10 

CONTINUE 

0017 

C 

END DO 

0018 


FrgLim = Mean 

0019 


MasLim = AMINl (Mss, MPro j-LRM) 

0020 


RETURN 

0021 


END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 


SUBROUTINE BinLim (NBin, MAvg, LRM, BinMas , BinMen, MPro j , 

: sF, bF^ sS, bS r NrmS, NrmF, MasLim) 

REAL MAvg^ LRM, MPro j , MasLim^ NrmS, NnnF, Binint , MasMen, MFrac (0:4) 
DIMENSION BinMen (5) , BinMas (0:5) ,MasMen(5) 

INTEGER Bin^ShtBin 

DATA MFrac/0., .25, .5, .75,1./ 

ShtBin=0 

DO 5 Bin=l,NBin-l 

BinMas (Bin) * (MPro j-LRM) *MFrac (Bin) 

MasMen (Bin) = (MPro j-LRM) * (MFrac (Bin) +MFrac (Bin-1) ) /2 . 

IF (BinMas (Bin) , LE .MasLim) ShtBin=Bin 
5 CONTINUE 

C END DO 

C ** Bin Limit and Mean for Shatter ** 

DO 10 Bin = l,ShtBin 

BinMen (Bin) = MAvg* (-EXP (-bS) *DLOG ( IDO -MasMen (Bin) /NrmS) ) ** (1/sS) 
10 CONTINUE 

C END DO 

C ** Bin Limit and Mean for First Bin in Fracture ** 

Bin = ShtBin+1 

IF (Bin . LE .NBin-1) THEN 

IF (MasLim. GE. MasMen (Bin) ) THEN 

C ** Bin Mean in Case it is Less Than the Fracture Threshold ** 

BinMen (Bin) -MAvg* (-EXP (-bS) *DLOG (IDO-MasMen (Bin) /NrmS) ) ** (1/sS) 
ELSE 

BinMen (Bin) =MAvg* (-EXP (-bF) *DLOG ( IDO-MasMen (Bin) /NntiF) ) ** (1/sF) 
END IF 
END IF 

C ** Bin Limit and Mean for Fracture ** 

DO 20 Bin = Sht B in+ 2 , NBin-1 

BinMen (Bin) = MAvg* (-EXP (-bF) *DLOG (IDO -MasMen (Bin) /NrmF) ) ** (1/sF) 
20 CONTINUE 

C END DO 

C ** Bin Mean for largest bin is LRM (Largest Residual Mass) ** 

BinMen (NBin) = LRM 
RETURN 
END 
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0001 

0002 SUBROUTINE AvgRes (ToverD, Theta, M, V, Alfa, MAvg) 

0003 REAL MAvg,M 

0004 C ** Average Fragment Mass ** 

0005 MAvg = .0109-.00879*ToverD/COS{Theta)+.000506*M-.00428*V+ 

0006 : . 0110*COS (2*Alfa) **2 

0007 MAvg = AMaxl (MAvg, 0 . 005) 

0008 RETURN 

0009 END 
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0001 

0002 


SUBROUTINE Count r (NBin, P, Thick, Maxk, Intact, Nr, Ac, As) 

0003 


INTEGER Bin, NBin, SmBin 

0004 


INTEGER Digit (5) ,HoMin (5) , I, Maxk (5) 

0005 


REAL Thick,HoDept,P (5) 

0006 


DOUBLE PRECISION Probs (5, 0 ; 15) 

0007 


DOUBLE PRECISION Intact, ITArea, ITArSl 

0008 


DOUBLE PRECISION Nr ( 5 ) , Ac { 5) , As 

0009 


DOUBLE PRECISION ArHoll, ArHol2, ArHol3 

0010 


DOUBLE PRECISION ArHol4, ArHolS 

0011 


DOUBLE PRECISION PrTemp, DigTpl, DigTp2 , DigTp3 

0012 


DOUBLE PRECISION DigTp4, DigTpS 

0013 


LOGICAL UnInc,OBinlD 

0014 


COMMON /Count /Probs 

0015 


DO 10 Bin = l,NBin 

0016 


HoMin(Bin) = JMINO (INT (Thick/P (Bin) +1) , Maxk (Bin) ) 

0017 


Digit (Bin) =0 

0018 

10 

CONTINUE 

0019 

C 

END DO 

0020 


ArHoll=0 .DO 

0021 


ArHol2=0 .DO 

0022 


ArHol3-0.D0 

0023 


ArHol4=0 .DO 

0024 


ArHol5=0 .DO 

0025 


lntact=0 .DO 

0026 


Bin = 0 

0027 


HoDept = 0 

0028 


OBinld = .FALSE. 

0029 

C 

DO WHILE ( Bin. LE. NBin) 

0030 

2 

IF ( .NOT. (Bin. LE. NBin) ) GOTO 20 

0031 


IF (HoDept .GT .Thick) THEN 

0032 


OBinld = .FALSE. 

0033 


SmBin=l 

0034 

C 

DO WHILE (Digit (SmBin) .EQ. 0) 

0035 

21 

IF ( .NOT. (Digit (SmBin) .EQ.O) ) GOTO 210 

0036 


SmBin=SmBin+l 

0037 


GOTO 21 

0038 

210 

CONTINUE 

0039 

C 

END DO 

0040 


Digit (SmBin) =0 

0041 


HoDept=0 . 

0042 


Bin = SmBin+1 

0043 


Uninc = .TRUE. 

0044 

C 

DO WHILE (Bin. LE. NBin. AND. Uninc) 

0045 

22 

IF ( .NOT. (Bin. LE. NBin. AND. Uninc) ) GOTO 220 

0046 


IF (Digit (Bin) .LT.HoMin (Bin) ) THEN 

0047 


Digit (Bin) = Digit (Bin) +1 

0048 


Uninc = .FALSE. 

0049 


ELSE 

0050 


Digit (Bin) =0 

0051 


Bin = Bin + 1 

0052 


END IF 

0053 


GOTO 22 

0054 

220 

CONTINUE 

0055 

C 

END DO 

0056 


DO 230 I=SmBin+l, NBin 

0057 


HoDept=HoDept+Digit (I) *P (I) 

0058 

230 

CONTINUE 

0059 

C 

END DO 

0060 


ELSE 

0061 


IF (OBinld) THEN 

0062 


DigTpl=DigTpl+l 

0063 


ITArea = Probs (1, DigTpl) *ITArSl 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


ArHoll = ArHoll+ITArea*DigTpl 
ArHol2 = ArHol2+ITArea*DigTp2 
ArHol3 = ArHol3+ITArea*DigTp3 
ArHol4 = ArHol4+ITArea*DigTp4 
ArHol5 - ArHol5+ITArea*DigTp5 

ELSE 

ITArea=l.D0 

DigTp2-Digit (2) 

PrTemp = Probs (2, DigTp2) 

ITArea = PrTemp^ITArea 

DigTp3-Digit (3) 

PrTemp =* Probs (3^DigTp3) 

ITArea = PrTemp * ITArea 

DigTp4=Digit (4) 

PrTemp = Probs ( 4, DigTp4) 

ITArea = PrTemp * ITArea 

DigTp5=Digit (5) 

PrTemp * Probs (5^ DigTp5) 

ITArea =* PrTemp * ITArea 

ITArSl=ITArea 

DigTpl=Digit (1) 

PrTemp =* Probs (l^DigTpl) 

ITArea = PrTemp * ITArea 

ArHoll “ ArHoll+ITArea*DigTpl 
ArHol2 = ArHol2+ITArea*DigTp2 
ArHol3 = ArHol3+ITArea*DigTp3 
ArHol4 = ArHol4+ITArea*DigTp4 
ArHol5 = ArHol5+ITArea*DigTp5 

END IF 

Intact=Intact+ITArea 
Bin = 1 

OBinld * .TRUE. 

Uninc - .TRUE. 

C DO WHILE {Bin. LE.NBin. AND. Uninc) 

24 IF ( .NOT. (Bin. LE.NBin. AND. Uninc ) ) GOTO 240 

IF (Digit (Bin) . LT . HoMin (Bin) ) THEN 
Digit (Bin) * Digit (Bin) +1 
HoDept - HoDept+P (Bin) 

Uninc = .FALSE. 

ELSE 

OBinld = .FALSE. 

HoDept » HoDept-Digit (Bin) *P (Bin) 

Digit (Bin) =»0 
Bin = Bin + 1 
END IF 
GOTO 24 

240 CONTINUE 

C END DO 

END IF 
GOTO 2 

20 CONTINUE 
C END DO 

Nr (1)=DMAX1 (0D0,Nr (1) -ArHoll *As /Ac ( 1 ) ) 
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0127 

0128 

0129 

0130 

0131 

0132 


Nr ( 2 ) =DMAX1 ( ODO , Nr ( 2 ) -ArHol2 *As / Ac ( 2 ) ) 
Nr (3) =DMAX1 (ODO, Nr (3) -ArHol3*A3/Ac (3) ) 
Nr (4) =DMAX1 (ODO, Nr (4) -ArHol4*As/Ac (4) ) 
Nr (5) =DMAX1 (ODO, Nr (5) -ArHol5*As/Ac (5) ) 
RETURN 
END 
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0001 

0002 

0003 

0004 C 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 


SUBROUTINE ResVel 

: (Vr, VO, RP, RhoP^ RhoT, Thick, Theta, PrMat, TarMat) 

This is the JTCG Residual Velocity Formula 
INTEGER PrMat,TarMat 
PresAr = 3.14159*RP**2 
VOcm = VO/ .03281 

Weight = 4 . /3 . ^3 . 14159*RP**3*RhoP 

V50 = BalLim (RP, RhoP, RhoT, Thick, Theta, PrMat, TarMat) 
Q4 = RhoT*Thick*PresAr/ (Weight *COS (Theta) ) 

VrSq =* AMAXl(0.,V0cm**2-V50**2) 

Vr = SQRT(VrSq) / (1.+Q4) 

Vr = Vr*. 03281 

RETURN 

END 
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0001 

0002 


FUNCTION BalLim 

0003 


; (RP, RhoPr RhoT, Thick, Theta, PrMat, 

0004 


INTEGER PrMat,TarMat 

0005 


IF (PrMat.EQ.3) THEN 

0006 


BalLim = 2 . 45*3281* (Thick/12 . /2 . 54 )**(-. 15) * 

0007 


: (Thick/RP/2 . ) * (RhoT/RhoP) **, 64* (1 . /COS (Theta 

0008 


ELSE 

0009 

C 

This is the JTCG V50 formula 

0010 


PresAr = 3 . 14159*RP**2 

0011 


Weight = 4 . /3 . *3 . 14159*RP**3*RhoP*32 . 2 

0012 


WO = ,0143 

0013 


IF (PrMat.EQ.l) THEN 

0014 


IF (TarMat .EQ.2) THEN 

0015 


Cbf = 41300. 

0016 


Bf = ,941 

0017 


H = 1.098 

0018 


F = -.038 

0019 


ELSE 

0020 


Cbf = 80600. 

0021 


Bf = .963 

0022 


H - 1.286 

0023 


F = -.057 

0024 


END IF 

0025 


ELSE 

0026 


Cbf = 92800 

.0027 


Bf = .972 

0028 


H =1.01 

0029 


F = -.105 

0030 


END IF 

0031 


Q8 = RhoP*32 . 2*Thick*PresAr/Weight 

0032 


Qll = RhoP*32 . 2*Thick*PresAr/W0 

0033 


BalLim = Cbf *Q8 **Bf /COS (Theta) **H*Q11* *F 

0034 


END IF 

0035 


RETURN 

0036 


END 
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FILE - DEB.VEL 


1 

0, 

.00 

3. 

.21 

2 

3, 

.21 

4. 

.00 

3 

4. 

.00 

4. 

.11 

4 

4, 

.11 

5. 

.16 

5 

5, 

.16 

5. 

.96 

6 

5, 

.96 

7. 

.18 

7 

7, 

.18 

8. 

.10 

8 

8, 

.10 

8. 

.67 

9 

8, 

.67 

9. 

.97 

10 

9, 

.97 

10. 

.25 

11 

10. 

.25 

10. 

,72 

12 

10. 

,72 

11. 

,42 

13 

11. 

,42 

11. 

,56 

14 

11. 

,56 

12. 

36 

15 

12. 

36 

13. 

61 

16 

13. 

,61 

17. 

00 


1.054336E-04 
-4.229632 
-4.200628E+03 
-1.622625 
2.043598E-t-01 
7.860538 
-1.915112E-01 
6.661122E+01 
-3.037310E-I-01 
-4.609121 
-3.250999E+02 
3.257151E+02 
3.994901 
1 . 701649E-I-02 
4.714685E+01 
1.578160E+01 


1.368229E-03 

3.795033 

3.110938E-I-03 

7.572647E-01 

-1.042294E+01 

-3.547154 

-1.182071E-01 

-2.432737E+01 

1.024428E+01 

4.719100E-01 

9.131992E-I-01 

-8.911450E+01 

-3.317631E-01 

-4.206065E+01 

-1.113553E+01 

-2.934914 


7.253182E-04 
-1.134365 
-7.679830E+02 
-8.053452E-02 - 
1.775327 
5.318564E-01 - 
4.134483E-02 - 
2.967511 
-1.147075 
0.0 

-8.543601 

8.133017 

0.0 

3.470595 
8.805859E-01 - 
1.820184E-01 - 
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2. 749629E-04 
1.135913E-01 
6.319804E-I-01 
4.511672E-04 
1.007870E-01 
2.631684E-02 
2.761015E-03 
1.207315E-01 
4.273907E-02 
0.0 

2.664182E-01 

2.474180E-01 

0.0 

9.552701E-02 

2.325908E-02 

3.763893E-03 
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APPENDIX D 


Source Code for BUMPER Module 
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0001 c 

0002 ccccccccccccccccccccccccccccccccccccc 


0003 C c 

0004 C BUMPER VER 4.0 5/25/87 C 

0005 C C 

0006 C BOEING AEROSPACE CO. C 

0007 C C 


0008 ccccccccccccccccccccccccccccccccccccc 

0009 C 

0010 c 

0011 c 

0012 C Bumper Ver 4.0 predicts the probability of no penetration for 

0013 C spacecraft subject to man-made orbital debris or meteoroid impact. 

0014 C The spacecraft is assumed to be operating in low earth orbit ( approx. 

0015 C 500km ) . The code accounts for varying impact velocity^ impact angle, 

0016 C wall configurations, and the effects of spacecraft geometry and 

0017 C orientation. It is currently limited to the case of spheres 

0018 C ( debris or meteroids ) impacting conventional aluminum two plate 

0019 C structures, with or without multi-layer insulation between the plates. 

0020 C 

0021 C The code requires 2 files generated by other codes. The first is the 

0022 C output file from the GEOMETRY code. This file contains the threat 

0023 C information and the element id, pid, and surface area lists. In 

0024 C addition the code outputs a list of the exposed elements and their 

0025 C impact angles for each threat case. 

0026 C 

0027 C The second file is the output file from the RESPONSE code. This file 

00.28 C contains the critical diameter tables for each wall configuration as 

0029 C a function of impact velocity and impact angle. 

0030 C 

0031 C 

0032 C The code also produces a Supertab universal file which may be used in 

0033 C conjuction with the orginal Supertab model file to graphically 

0034 C display the distribution of the probability of penetration on the 

0035 C spacecraft. 

0036 C 

0037 C The code was developed under the NASA contract "Integrated Wall Design 

0038 C Guide and Penetration Control Plan* by M. A. Wright & A. R. Coronado 

0039 C 

0040 C 

0041 C Common Block Variable list 

0042 C 

0043 C Scalers 

0044 C 

0045 C alt = operating altitude , km 

0046 C bine = impact angle (beta) increment , deg 

0047 C cbeta = cosine of beta 

0048 C diam = critical diameter , cm 

0049 C etime = spacecraft exposure time , years 

0050 C fix = number of impacts per projected area per year of diameter D 

0051 C or larger 

0052 C it = current threat case 

0053 C itype = analysis type , 1- debris, 2-meteoroids 

0054 C nb = number of angles in the response array 

0055 C nc = number of wall configurations in the response array 

0056 C nel = current element number 

0057 C nelm = total number of elements 

0058 C nr = number of element ranges to sum over 

0059 C nt = number of threat cases 

0060 C nv == number of velocities in the response array 

0061 C vr = impact (relative) velocity , km/sec 

0062 C vine = impact (relative) velocity increment , km/sec 

0063 C 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 

0144 

0145 

0146 

0147 

0148 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


rrays D 180-30550-4 

area =* array containing the value of the surface area for each 
element^ sq-meters 

exposed = list of the number of exposed elements for each threat 
angle . 

geometry * array containing the values of the cosine of the impact 
angle for each exposed element for each threat angle, 
id = array containing the values of the element and property id 
for each element 

1- id 

2- pid 

point = array of the element numbers corresponding to the elements 
in the geometry array. 

range = array containing the starting and ending elment id for each 
range to sum over 

1- starting id 

2- ending id 

response = array containing the values of the critical diameter as 
a function of impact angle and velocity. 

(vr ^ beta^ pid) 

threat = array containg threat information 

1- theta angle^ rad 

2- phi angle^ rad 

3- vr, km/ sec 

4- prob 


Main Program Variable List 
Scalers 

answer = user input 

ae = effective area term, product of the cosine of the impact 
angle and the probability of the threat occuring 
fa * product of the threat probability, flux and cosine (beta) , 
impacts/yr/ sq-meter 

prob = probabiltiy of threat case i occuring 
taeff = total effective area, sq-m 

tpnp = total probability of no penetration for all elements, % 
tsum = total Slim of the history array 

Arrays 

aeff » array containing the effective area for reach range 
arhis = array containing the running sum of the effective area 
term for each element 

history = list containing the running sum of the fa term for each 
element 

pnp = array containing the probability of no penetration for each 
range 

sum “ array containg the sum of the history array for each element 
range 


CHARACTER* 80 ANSWER 

INCLUDE » COMMON2 . BLK • 

REAL*8 AE, FA, PROB, TAEFF, TPNP, TSUM, 

1 ARHIS (lEL) , HISTORY (lEL) , AEFF (50) , PNP (50) , SUM (50) 

Write header to screen, read in screen inputs 


D - 2 



D180-30550-4 


0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 


C 

CALL INPUT 
C 

C Read in the GEOMETRY output file 
C 

CALL GEOREAD 
C 

C Read in the RESPONSE output file 
C 

CALL RES RE AD 
C 

C Initialize Tsum and Taeff to 0.0 
C 

TAEFF=0 . ODO 
TSUM=0.0D0 
C 

C Initialize History to 0.0 
C 

DO 50 I=1,NELM 

HISTORY ( I) =0. ODO 
50 CONTINUE 
C 

C Initialize Sum, Aeff, and Pnp to 0.0 
C 

DO 70 1=1,50 

AEFF(I)=0.0D0 
PNP ( I) =0. ODO 
SUM(I)=0.0D0 
70 CONTINUE 
C 

C Determine the penetrating flux for each element, for each threat 
C angle 
C 

DO 200 1=1, NT 
C 

C Set the threat index and get the impact velocity and the threat 
C probability from the threat array 
C 

IT=I 

VR^THREAT (3, IT) 

PROB=THREAT (4, IT) 

C 

C Evaluate each exposed element 
C 

DO 100 J=l, EXPOSED (I) 

C 

C Set the element number 
C 

NEL=POINT (J, I) 

C 

C Get the cosine of the impact angle from the Geometry array. 

C 

CBETA=GEOMETRY ( J, I) 

C 

C Determine the diameter of the sphere that just penetrates the wall 
C 

CALL CRITDIA 
C 

C Calculate the flux of the critical diameter using the appropriate 
C flux equation based on the analysis type. 

C 

CALL FLUX 
C 
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0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 


D 180-30550-4 

Multiply the flux by the probability of the threat angle and the 
cosine of the impact angle^ this determines the number of 
penetrations per year per element surface area for the current 
element and the current threat angle. 

FA=FLX*PROB*CBETA 

Store the running sum of the FA term for, each element in the History 
array. This value represents the total number of penetrations for 
a given element per year per element surface area . 

HISTORY (NEL) ^HISTORY (NEL) +FA 

Calculate the effective area term 

AE=PROB*CBETA 

Store the running sum of the effective area term in the arhis array 
ARHIS (NEL) =ARHIS (NEL) +AE 
Next element 
100 CONTINUE 

Write message to the screen indicating current threat has been 
evaluated 

WRITE ( 6,150 ) IT 

150 FORMAT ( IX, ' THREAT CASE *, 14 , IX, » COMPLETED » ) 

Next threat 
200 CONTINUE 

Multiply each term in the HISTORY and ARHIS arrays by the appropriate 
element surface area. 

DO 250 I=*1,NELM 

HISTORY(I) =HISTORY(I) *AREA(I) 

ARHIS (I)=ARHIS (I) *AREA(I) 

250 CONTINUE 

Sum up the HISTORY and ARHIS arrays by components . 

IC=1 

DO 310 I=1,NELM 

TAEFF=*TAEFF+ARHIS (I) 

T SUM=T SUM+H I S TORY ( I ) 

300 I STRANGE (1, IC) 

IE=RANGE (2, IC) 

IF ( IC.GT.NR ) GO TO 310 
IF ( IS.GT.IDd,!) ) GO TO 310 
IF ( lE.LT.IDd, I) ) THEN 
IC=IC+1 
GO TO 300 
END IF 

AEFF (IC)=AEFF (IC) +ARHIS (I) 
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0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 


SUM ( IC) =SUM ( IC ) +H I STORY ( I ) 

C 

310 CONTINUE 
C 

C Calculate the probabilty of no penetration for each range using 
C a Possion model 
C 

DO 320 1=1, NR 

PNP (I)=(DEXP (-SUM(I) *ETIME) ) *100 .DO 
320 CONTIITOE 
C 

C Calculate the total PNP 
C 

TPNP= (DEXP (-TSUM*ETIME) ) *100 .ODO 
C 

C Write the probability value to the screen and the summary file. 

C 

WRITE ( 6,390 ) 

WRITE ( 10,390 ) 

390 FORMAT ( / IX, * RANGE *, 2X, * STARTING EID *, 2X, ' ENDING EID^3X, 

1 »PNP %',6X, 'Aeff sq-m* ) 

DO 400 1=1, NR 

WRITE ( 6,420 ) I, RANGE { 1, I) , RANGE (2 , I) , PNP ( I ) , AEFF (I) 

WRITE ( 10,420 ) I,RANGE(1,I) ,RANGE(2,I) ,PNP(I) ,AEFF(I) 

400 CONTINUE 

420 FORMAT ( 2X, 14 , 5X, 18 , 3X, 18 , 3X, FlO . 5 , 2X, FIO . 5 ) 

C 

C Write out totals to screen and save file 
C 

WRITE ( 6,430 ) TPNP 
WRITE { 10,430 ) TPNP 

430 FORMAT ( /IX, *TOTAL PRROBABILITY OF NO PENETRATION (%) = *,F12.5 ) 
C 

WRITE ( 6,440 ) TAEFF 
WRITE ( 10,440 ) TAEFF 

440 FORMAT ( /IX, *TOTAL EFFECTIVE AREA (SQ-M) = *,F12.5 ) 

C 

C 

C Determine if a Supertab output file is to be created 
C 

WRITE ( 6,500 ) 

500 FORMAT (/IX, 'CREATE A SUPERTAB INPUT FILE FOR CONTOUR PLOTS 
1 IX, '<CR=YES> >', $) 

C 

READ ( 5,510 ) ANSWER 
510 FORMAT ( A ) 

C 

IF ( ANSWER(1:1) .EQ. 'Y* .OR. ANSWER ( 1 : 1 ). EQ , ' ' ) THEN 

CALL SUPER (HISTORY) 

END IF 
C 

C Close summary file 
C 

CLOSE ( UNIT=10,STATUS='KEEP' ) 

C 

C Finished 
C 

END 
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c D 180-30550-4 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE INPUT 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Input writes the program header to the screen and reads in the 
C summary ouput filename. It also determines the analysis type^ the 
C spacecraft exposure time^ operating altitude and the element id sum 
C ranges . 

C 

C 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition 

C 

C Variable list 
C 

C answer = character string representing user input 
C sfile = summary output filenanme 
C 
C 
C 

INCLUDE * COMMON2 . BLK * 

C 

CHARACTER*80 ANSWER, SFILE 
C 

C Write header to screen and summary file 
C 

WRITE ( 6,10 ) 

10 FORMAT (/IX, * ************’^******** * , //IX, 3X, 'BUMPER VER 4.0', 

1 //IX, 'Last Update 5/25/87 *, //IX, '*********************' ) 

C 

C Read in summary output filename, set default to sum.dat 
C 

15 WRITE ( 6,20 ) 

20 FORMAT ( /IX, 'SUMMARY OUTPUT FILENAME (CR=BUMPER . SUM) > ' , $ ) 

READ ( 5,30 ) SFILE 
30 FORMAT (A) 

C 


IF ( SFILE(1:1) ,EQ. ' ' ) SFILE= ' BUMPER . SUM ' 

C 

C Open sfile 
C 

OPEN { UNIT=«10,FILE«SFILE,STATUS='NEW* , IOSTAT=IER,ERR=40 ) 

C 

GO TO 70 
C 

C Error control 
C 

40 IF ( IER.EQ.2013 ) THEN 
WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'FILE ALREADY EXISTS OK TO OVERWRITE (CR=YES , $ ) > * ) 
READ ( 5,30 ) ANSWER 
C 

IF ( ANSWER(1:1) .EQ. *Y' .OR. ANSWER ( 1 : 1 ). EQ . * ' ) THEN 

OPEN ( UNIT=10, FILE^SFILE, STATUS= 'UNKNOWN ' , IOSTAT=IER, 

1 ERR=40) 

REWIND 10 
ELSE 

GO TO 15 
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0086 END IF 

0087 ELSE 

0088 WRITE ( 6,60 ) 

0089 60 FORMAT (/IX, 'UNABLE TO OPEN FILE ' ) 

0090 GO TO 15 

0091 END IF 

0092 C 

0093 C Determine analysis type, set default to 1 (debris) 

0094 C 

0095 70 WRITE ( 6,80 ) 

0096 80 FORMAT (/IX, 'ANALYSIS TYPE ?',/, 2X, ' 1-DEBRIS <CR> ',/,2X, 

0097 1 ' 2 -METEOROIDS ',/, IX, 'ANSWER 1 OR 2 >',$) 

0098 C 

0099 READ ( 5,30 ) ANSWER 

0100 C 

0101 IF ( ANSWER(1:1) .EQ. ' ' ) THEN 

0102 ITYPE=1 

0103 ELSE 

0104 READ ( ANSWER(1:80) , 90,ERR=70 ) ITYPE 

0105 90 FORMAT ( BN, 14 ) 

0106 END IF 

0107 C 

0108 C Check that input was correct 

0109 C 

0110 IF ( ITYPE. EQ.l .OR. ITYPE. EQ. 2 ) THEN 

0111 CONTINUE 

0112 ELSE 

0113 WRITE ( 6,100 ) 

0114 100 FORMAT ( /IX, ' INCORRECT INPUT' ) 

0115 GO TO 70 

0116 END IF 

0117 C 

0118 C Determine the spacecraft exposure time , set default to 10 years 

0119 C 

0120 105 WRITE ( 6,110 ) 

0121 110 FORMAT (/IX, 'SPACE STATION EXPOSURE TIME (YEARS) <CR=10.0> : ',$) 

0122 READ ( 5,30 ) ANSWER 

0123 C 

0124 IF ( ANSWER(1:1) .EQ. ' ' ) ANSWER= ' 10 . 0 ' 

0125 C 

0126 READ ( ANSWER(1:80) ,120,ERR=105 ) ETIME 

0127 120 FORMAT ( BN,D20.0 ) 

0128 C 

0129 C Write analysis type and etime to summary file 

0130 C 

0131 WRITE ( 10,10 ) 

0132 C 

0133 IF ( ITYPE. EQ.l ) THEN 

0134 WRITE ( 10,130 ) 

0135 130 FORMAT ( / IX, 'MAN-MADE ORBITAL DEBRIS ANALYSIS') 

0136 ELSE 

0137 WRITE ( 10,140 ) 

0138 140 FORMAT ( IX, 'METEOROID ANALYSIS' ) 

0139 END IF 

0140 C 

0141 WRITE ( 10,150 ) ETIME 

0142 150 FORMAT ( IX, ' SPACECRAFT EXPOSURE TIME' (YEARS) =',F7.2 ) 

0143 C 

0144 C Read in operating altitude , set default to 500 km 

0145 C 

0146 160 WRITE ( 6,170 ) 

0147 170 FORMAT ( /IX, 'OPERATING ALTITUDE ( 400-500 km ) <CR=500> : ',$) 

0148 READ ( 5,30 ) ANSWER 
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0149 

C 





0150 



IF ( ANSWER (1 : 1) .EQ. • ' ) THEN 



0151 



ALT=500.0D0 



0152 



ELSE 



0153 



READ ( ANSWER(1:80) ,180,ERR=160 ) ALT 



0154 


180 

FORMAT ( BN,D20.0 ) 



0155 



END IF 



0156 

C 





0157 

C 

Check that altitude is within range 



0158 

C 





0159 



IF ( ALT. LT. 350.0 .OR. ALT. GT. 550.0 ) THEN 



0160 



WRITE ( 6,190 ) 



0161 


190 

FORMAT ( IX, ' ERROR Altitude outside of 

range ' ) 

0162 



GO TO 160 



0163 



END IF 



0164 

C 





0165 

C 

Write altitude to output file 



0166 

C 





0167 



WRITE ( 10,200 ) ALT 



0168 


200 

FORMAT ( IX, 'OPERATING ALTITUDE (km) = *,F7.2 ) 



0169 

C 





0170 

C 

Read in element ranges to sum over 



0171 

C 





0172 



M 

O 

II 

o 



0173 

C 





0174 



WRITE ( 6,250 ) 



0175 


250 

FORMAT ( /IX, 'THE PROBABILITY OF NO PENETRATION 

WILL 

BE * , 

0176 



1 'CALCULATED FOR SPECIFIC RANGES ', /IX, 'OF ELEMENT IDS 

0177 



2 'INPUT THE STARTING AND ENDING ELEMENT 

ID FOR ' , 

0178 



3 'EACH RANGE' , /IX, 'ENTER D <CR> OR <CR> 

WHEN 

DONE ' ) 

0179 

C 





0180 


270 

IC=IC+1 



0181 


275 

WRITE ( 6,280 ) IC 



0182 


280 

FORMAT ( /IX, 'RANGE', 14 ) 



0183 

C 





0184 


285 

WRITE ( 6,290 ) 



0185 


290 

FORMAT ( IX, 'STARTING ELEMENT ID : ',$) 



0186 



READ ( 5,30 ) ANSWER 



0187 

C 





0188 



IF ( ANSWER(1;1) .EQ. ' ' .OR. ANSWER ( 1 : 1 ). EQ . 'D ' 

) GO 

TO 500 

0189 

c 





0190 



READ ( ANSWER (1:80), 300, ERR=285 ) RANGE (1,IC) 



0191 


300 

FORMAT ( BN, 112 ) 



0192 

c 





0193 


305 

WRITE ( 6,310 ) 



0194 


310 

FORMAT ( IX, 'ENDING ELEMENT ID : ',$) 



0195 



READ ( 5,30 ) ANSWER 



0196 

c 





0197 



IF ( ANSWERd :1) .EQ. ' ' .OR. ANSWER ( 1 : 1 ). EQ . 'D ' 

) GO 

TO 305 

0198 

c 





0199 



READ ( ANSWER(1:80) ,300,ERR=305 ) RANGE(2,IC) 



0200 

c 





0201 

c 

Check that ending id > starting id 



0202 

c 





0203 



IF ( RANGEd, IC) .GT.RANGE(2,IC) ) THEN 



0204 



WRITE ( 6,320 ) 



0205 


320 

FORMAT ( IX, ^ ERROR Staring ID greater then Ending ID 

0206 



GO TO 275 



0207 



END IF 



0208 

c 





0209 

c 

Next Range 



0210 

c 





0211 



GO TO 270 
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0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 


C 

C Check that values were input 
C 

500 CONTINUE 

IF ( RANGE (1, 1) .EQ. 0 .0 .AND. RANGE (2 , 1 ) . EQ . 0 . 0 ) THEN 
WRITE ( 6,330 ) 

330 FORMAT { IX,* ERROR No Range Values Input* ) 

IC=0 

GO TO 270 
END IF 
C 

C Set the nximber of ranges equal to the number read in 
C 

NR»IC-1 

C 

C Finished 
C 

C RETURN 

C 

END 
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c D 180-30550-4 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE GEOREAD 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Georead reads in the output file from the GEOMETRY code. This file 
C contains the global threat and element data as well as the list of 
C exposed elements and their impact angles for each threat case. 

C 

C 

C 

C note: for variables contained in the common block refer to main 
C listing for definition 

C 
C 

C Variable List 
C 

C answer = character string representing user input 
C gfile = geometry output filename 
C itf = analysis type contained in the 
C 
C 

INCLUDE * COMMON2 . BLK ' 

C 

CHARACTER^SO ANSWER, GFILE 
C 

INTEGER*2 ITF 
C 

C Read in the GEOMETRY output filename, set the default to geom.dat 
C 

10 WRITE ( 6,20 ) 

20 FORMAT (/IX, 'GEOMETRY OUTPUT FILENAME ? <CR=STATION . GEM> >',$) 
READ ( 5,30 ) GFILE 
30 FORMAT (A) 

C 

IF ( GFILE (1 : 1) .EQ. * ' ) GFILE= * STATION . GEM ' 

C 

C Open the file 
C 

OPEN (UNIT=2 , FILE=GFILE, STATUS= * OLD ' , FORM= ' UNFORMATTED ' , ERR=4 0 ) 
C 

GO TO 60 
C 

C Error control 
C 

40 WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'UNABLE TO OPEN FILE ' ) 

GO TO 10 
C 

C Read in the analysis type, the number of threat cases, and the 
C number of elements 
C 

60 READ (2) ITF,NT,NELM 
C 

C Check that the analysis type in the file matches the type input 
C by user . 

C 

IF ( ITF.NE.ITYPE ) THEN 
IF ( ITYPE.EQ.l ) THEN 
WRITE ( 6,70 ) 
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0086 


70 

FORMAT ( /IX, 'DEBRIS ANALYSIS SPECIFIED 

BUT FILE IS 

FOR ' , 

0087 


1 

'METEOROIDS' ) 



0088 



ELSE 



0089 



WRITE ( 6,80 ) 



0090 


80 

FORMAT ( /IX, 'METEOROID ANALYSIS SPECIFIED BUT FILE 

IS ', 

0091 


1 

'FOR DEBRIS' ) 



0092 



END IF 



0093 

C 





0094 



WRITE ( 6,90 ) 



0095 


90 

FORMAT ( /IX, 'DO YOU WISH TO CONTINUE (CR=NO) >',$) 


0096 



READ ( 5,30 ) ANSWER 



0097 

C 





0098 



IF ( ANSWER(1:1) .EQ. 'Y' ) THEN 



0099 



GO TO 10 



0100 



ELSE 



0101 



STOP 



0102 



END IF 



0103 

C 





0104 


END IF 



0105 

C 





0106 

C 

Check that the number of threats and the number 

of elements 

are les: 

0107 

C 

then 

the maximum allowed 



0108 

C 





0109 


IF 

( NT.GT.ITH ) THEN 



0110 



WRITE ( 6,100 ) 



0111 


100 

FORMAT ( /IX, 'NUMBER OF THREATS IS GREATER 

THEN MAX ALLOWED ’ ) 

0112 



WRITE ( 6,105 ) 



0113 


105 

FORMAT ( IX, 'ARRAY SIZE MUST BE INCREASED & 

CODE RECOMPILED') 

0114 



STOP 



0115 


END IF 



0116 

c 





0117 


IF 

( NELM.GT.IEL ) THEN 



0118 



WRITE ( 6,110 ) 



0119 


110 

FORMAT ( /IX, 'NUMBER OF ELEMENTS IS GREATER 

. THEN MAX ALLOWED ’ ) 

0120 



WRITE ( 6,105 ) 



0121 



STOP 



0122 


END IF 



0123 

c 





0124 

c 

Initialize the arrays to 0.0 



0125 

c 





0126 


DO 

150 1=1, NT 



0127 



THREAT (3, I) =0 . 0 



0128 



THREAT (4, I) =0 . 0 



0129 



EXPOSED (I) =0 



0130 



DO 140 J=1,NELM 



0131 



GEOMETRY (J, I) =0 . 0 



0132 



ID(1, J)=0 



0133 



ID(2, J)=0 



0134 



POINT (J, I) =0 



0135 


140 

CONTINUE 



0136 


150 CONTINUE 



0137 

c 





0138 

c 

Read 

in the Threat data 



0139 

c 





0140 


DO 

175 1=1, NT 



0141 



READ (2) (THREAT (J, I) , J=l, 4) 



0142 


175 CONTINUE 



0143 

c 





0144 

c 

Read 

in the element id, and property id storing 

them in the 

ID 

0145 

c 

array 

. 



0146 

c 





0147 


DO 

200 I=1,NELM 



0148 



READ (2) (ID (J, I) , J=l, 2) 




D - 11 



D 180-30550-4 


0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
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0175 

0176 

0177 

0178 

0179 
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0183 

0184 

0185 

0186 

0187 

0188 
0189 


C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


200 CONTINUE 

Read in the element *s surface area storing it in the AREA array, 

DO 250 I*1,NELM 

READ (2) AREA(I) 

250 CONTINUE 

Read in the geometry data for the exposed elements 
DO 500 I-1,NT 

Read in the threat case and the number of exposed elements 
READ (2) IT, EXPOSED (I) 

Loop thru the exposed elements 
DO 400 J»l, EXPOSED (I) 

Read in the element number (storing in the POINT array) , and the 
cosine of the impact angle (storing in the GEOMETRY array) . 

READ (2) POINT (J, I) , GEOMETRY (J, I) 

400 CONTINUE 

500 CONTINUE 


C 

C 

C 


C 

c 

C 

c 


Write gfile to summary file 

WRITE ( 10,600 ) GFILE 
600 FORMAT ( IX, * GEOMETRY OUTPUT FILE 

Close file 

CLOSE ( UNIT»2, STATUS- 'KEEP * ) 


) 


C 


RETURN 


END 
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C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE RESREAD 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Resread reads in the output from the RESPONSE code. This output 
C consists of the critical diameter data as a function of property 
C idr impact angle, and impact velocity. 

C 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition. 

C 

C 

C Variable list 
C 

C answer = character string represnting user input 
C itf = analysis type for rfile 

C rfile = response output filename 

C 
C 

CHARACTER* 80 ANSWER, RFILE 
C 

INTEGER*2 ITF 
C 

INCLUDE * COMMON2 . BLK * 

C 

C Read in the RESPONSE output filename , set default to resp.dat 
C 

10 WRITE ( 6,20 ) 

20 FORMAT (/IX, * RESPONSE OUTPUT FILENAME ? <CR==STATION . RSP> >’,$) 

READ ( 5,30 ) RFILE 
30 FORMAT (A) 

C 

IF ( RFILE (1 : 1) .EQ. ’ ' ) RFILE= * STATION . RSP * 

C 

C Open the file 
C 

OPEN ( UNIT=2, FILE=RFILE, STATUS= 'OLD ' , FORM= ^UNFORMATTED * , ERR=40 ) 
C 

GO TO 60 
C 

C Error control on open 
C 

40 WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'UNABLE TO OPEN FILE' ) 

GO TO 10 
C 

C Read in the analysis type and the number of property cases. 

C 

60 READ (2) ITF,NC 
C 

C Check that the response file is the correct analysis type 
C 

IF ( ITF.NE.ITYPE ) THEN 
IF ( ITYPE.EQ.l ) THEN 
WRITE ( 6,70 ) 

70 FORMAT { /IX, 'DEBRIS ANALYSIS SPECIFIED BUT RESPONSE FILE*, 

1 ' IS FOR METEOROIDS ') 

ELSE 
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WRITE ( 6,80 ) 

FORMAT {/IX, "METEOROID ANALYSIS SPECIFIED BUT RESPONSE", 
" FILE IS FOR DEBRIS" ) 

END IF 

WRITE ( 6,90 ) 

FORMAT ( /IX, "DO YOU WISH TO CONTINUE (CR=NO) >*,$) 

READ ( 5,30 ) ANSWER 

IF ( ANSWER(1:1) .EQ. "Y" ) THEN 

GO TO 10 
ELSE 

STOP 
END IF 


0101 


END IF 

0102 

C 


0103 

C 

Read in the impact angle information 

0104 

C 


0105 


READ (2) NB,BINC 

0106 

C 


0107 

C 

Read in the impact velocity information 

0108 

C 


0109 


READ (2) NV,VINC 

0110 

C 


0111 

C 

Initialize RESPONSE to 0.0 

0112 

C 


0113 


DO 200 1=1, NC 

0114 


DO 150 J=1,NB 

0115 


DO 100 K=1,NV 

0116 


RESPONSE ( K,J,I ) = 0.0 

0117 


100 CONTINUE 

0118 


150 CONTINUE 

0119 


200 CONTINUE 

0120 

C 


0121 

C 

Read in the critical diameter data 

0122 

C 


0123 

C 

Loop thru the property id's 

0124 

C 


0125 


DO 400 1=1, NC 

0126 

C 


0127 

C 

Loop thru the impact angles 

0128 

C 


0129 


DO 300 J=1,NB 

0130 

C 


0131 

C 

Loop thru the impact velocities 

0132 

C 


0133 


DO 250 K=1,NV 

0134 

C 


0135 

C 

Store the critical diameter in response 

0136 

C 


0137 


READ (2) FlESPONSE(K, J, I) 

0138 


250 CONTINUE 

0139 


300 CONTINUE 

0140 


400 CONTINUE 

0141 

C 


0142 

c 

Close the file and return 

0143 

c 


0144 


CLOSE ( UNIT=2, STATUS='KEEP' ) 

0145 

c 


0146 

c 

Write Rfile to summary file 

0147 

c 


0148 


WRITE ( 10,500 ) RFILE 


0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 


80 


90 
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0149 500 FORMAT (IX, 'RESPONSE OUTPUT FILE = ',A ) 

0150 C 

0151 RETURN 

0152 C 

0153 END 
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c 0180-30550^ 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE CRI TD I A 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Critdia determines the diameter of the sphere that just penetrates 
C the given wall configuration at the given impact angle and velocity. 
C The subroutine performs a linear interpolation using the appropriate 
C values from the Response array to estimate the critical diameter. 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition 

C 
C 

C Variable list 
C 

C beta = impact angle , measured from the normal , deg 

C bl = the impact angle nearest to the actual impact angle 

C in the Response array , but less than the actual , deg 

C ibl = location of bl in the Response array 


c 

ib2 = 

It 

" b2 " 

It 

It 

II 


c 

ivl = 

If 

.. « 

If 

It 

11 


c 

iv2 = 

It 

.. ^2 " 

It 

It 

11 


c 

rl = 

intermediate variable 




c 

r2 * 


11 11 




* 

c 

rll = 

value 

in Response 

array 

at 

location 

ivl, ibl, pid 

c 

rl2 = 

11 

II 11 

It 

It 

II 

ivl, ib2 , pid 

c 

r21 = 

11 

II II 

It 

II 

II 

iv2 , ibl, pid 

c 

r22 = 

It 

II II 

It 

11 

II 

iv2 , ib2 , pid 


C vl = impact velocity nearest the actual impact velocity in the 

C Response array , but still less than the actual 

C 

C 

C 

C 

INTEGER*2 IBl, IB2 , IVl, IV2^ PID 
C 

INCLUDE * COMMON2 . BLK * 

C 

PARAMETER (PI*3 . 14 1592 6536) 

C 

C Determine the location of the nearest velocity to the actual velocity 
C in the Response array, but still less then the actual 
C 

IV1=VR/VINC 

C 

C Check that the location is inside the array 
C 

IF ( IVl.LT.l .OR. IVl.GT.NV ) THEN 
WRITE ( 6,10 )VR 

10 FORMAT ( /IX, ’THE RELATIVE VELOCITY (VR) IS OUTSIDE OF THE’, 

1 ’ RESPONSE ARRAY BOUNDS VR (KM/SEC) = ’,E12.5) 

STOP 
END IF 
C 

C Set the location of the velocity just greater than the actual velocity 
C 

IV2=IV1+1 

C 
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0123 
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0148 


D180-30550-4 

C Check that the location is inside the array 
C 

IF ( IV2.GT.NV ) IV2=IV1-1 

C 

C Calculate the value of the velocity at location ivl 
C 

V1=IV1*VINC 

c 

C Determine the impact angle in deg 
C 

BETA=ACOS (CBETA) *180 . 0/PI 
C 

C Determine the location of the nearest impact angle to the actual 
C impact angle in the Response array, but still less than the actual 
C 

IB1=BETA/BINC+1 

C 

C Check that the location is inside the array 
C 

IF ( IBl.LT.l .OR. IBl.G^.NB ) THEN 
WRITE ( 6,20 )BETA 

20 FORMAT ( /IX, 'IMPACT ANGLE (BETA) IS OUTSIDE THE BOUNDS OF', 

1 * THE RESPONSE ARRAY BETA (DEG) = ',E12.5) 

STOP 
END IF 
C 

C Set the location of the impact angle in the Response array that is 
C just greater than the actual 
C 

IB2=IB1+1 

C 

C Check that the location is inside the array 
C 

IF ( IB2.GT.NB ) IB2=IB1-1 
C 

C Calculate the value of the impact angle at location ibl in the Response 
C array 
C 

B1=(IB1-1) *BINC 
C 

C Determine the property id 

PID=ID (2,NEL) 

C 

C Check that pid is within bounds of the response array 
C 

IF ( PID.GT.NC ) THEN 
WRITE ( 6,30 ) PID 

30 FORMAT { /IX, »NO DATA EXISTS FOR PORPERTY ID *,I4,*IN THE 
1 'RESPONSE FILE' ) 

STOP 
END IF 
C 

C Get the four values that surround the actual value in the Response 
C array 
C 

Rll=RESPONSE (IVl, IB1,PID) 

R12=RESPONSE(IVl, IB2,PID) 

R21=RESPONSE(IV2, IB1,PID) 

R22=RESPONSE(IV2, IB2,PID) 

C 

C Using linear interpolation, estimate the critical diameter 
C 
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0149 


Rl= (R12-R11) 

* ( (BETA-Bl) /BINC) +R11 

0150 

0151 

C 

R2= (R22-R21) 

* ( (BETA-Bl) /BINC) +R21 

0152 

0153 

C 

DIAM= (R2-R1) 

* ( (VR-Vl) /VINC) +R1 

0154 

C 

Finished , return 

0155 

0156 

C 

RETURN 


0157 

0158 

C 

END 
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c D180-30550-4 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE FLUX 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Flux calculates the meteoroid or debris flux for the given critical 
C diameter based on analysis type. 

C 

C 

C note: for variables contained in the common block ref err to the main 
C listing for definition 

C 

C Variable List 
C 

C ddiam = diam in double precision , cm 
C ge = gravity focusing factor 
C intercept = intercept of the flux equation 
C mass = critical meteoroid mass, g 
C mden = meteoroid density ^ g/cc 

C re = earth's radius (including 100km atmosphere), km 
C slope = slope of the flux equation 
C 
C 

INCLUDE ' COMMON2 . BLK * 

C 

REAL*8 DDIAM, GE, INTERCEPT, LD, MASS, MDEN, PI, RE, SLOPE 
C 

PARAMETER (PI=3 . 141592 65358 97932 3 8D0 ) 

C 

C Set mden 

C 

C 

MDEN=0.50DO 

C 

C Calculate the focusinng factor, equation 
C is from JSC-30000 
C 

RE=6478 .ODO 

GE=0 . 568D0 + 0 . 432D0* (RE/ (RE+ALT) ) 

C 

C Convert diam to double precision 
C 

DDIAM=DIAM 

C 

C Calculate the flux 
C 

IF ( ITYPE.EQ.l ) THEN 
C 

C For debris use JSC-20001, use stated equations for diameters 
C less then 1 cm , for those greater use third order fit of the 
C curve for region up to 5 cm . 

C 

C The log of the flux varies linearly between 400 and 500 km according 
C to D Kesseler of JSC. 

C 

LD=DLOG10 (DDIAM) 

IF ( DIAM. LT. 5.0 ) THEN 
IF ( DIAM. LT. 1.0 ) THEN 

SLOPE=-0 . 0*010DO*ALT-2 . 0200D0 
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0086 

0087 

0088 

0089 
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0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
0117 


ELSE 

SLOPE=-0 . 0022D0*ALT-0 . 1400D0 
END IF 

INTERCEPT=+0 .0036D0*ALT-7 .26D0 
FLX=10 . ODO** (SLOPE*LD+INTERCEPT) 

ELSE 

WRITE ( 6,100 ) 

100 FORMAT ( /IX, 'DIAMETER IS GREATER THAN 5 CM LIMIT*) 

STOP 
END IF 
C 

C Correct Flux for differance in Boeing and Nasa definetion 
C 

FLX=FLX*4.0D0 

C 

ELSE 

C 

C For meteoroids use JSC-3000, E-06g < mass < Ig 

C 

MASS=PI* (DDIAM*^3) /6.0DO*MDEN 

FLX=*10 . ODO** (-14.37DO-1.213DO*DLOG10 (MASS) ) 

C 

C Account for earth shielding and gravity focusing , also convert to 
C number of impacts per sq-m per year 
C 

FLX=FLX*GE*3 . 1557 6D07 
C 

END IF 
C 

RETURN 

C 

END 
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0001 
0002 

0003 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 SUBROUTINE SUPER (HISTORY) 

0006 C 

0007 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0008 C 

0009 C 

0010 C Super writes out the Supertab universal file that contains the 

0011 C probability of penetration per surface area data. 

0012 C 

0013 C 

0014 C Variable list 

0015 C 

0016 C answer = character string representing user input 

0017 C ids = dataset id , from Supertab manual 

0018 C ilt = leading and trailing -1 

0019 C i61 = field value from Supertab manual 

0020 C i62 = ” ” ” ” 

0021 C i63 = 

0022 C i64 = 

0023 C i65 = 

0024 C i66 = ” « ” 

0025 C i71 = 

0026 C i72 = 

0027 C i73 = 

0028 C i91 = 

0029 C i92 = 

0030 C ofile = output filename 

0031 C ppen = probability of penetration per surface area , %/sq-meter 

0032 C r81 = field value from Supertab manual 

0033 C 

0034 C 

0035 INCLUDE ' COMMON2 . BLK * 

0058 C 

0059 CHARACTER* 80 ANSWER, OFILE 

0060 C 

0061 REAL*8 HISTORY (lEL) 

0062 C 

0063 C Read in output filename, set default to out. uni 

0064 C 

0065 10 WRITE ( 6,20 ) 

0066 20 FORMAT (/IX, * SUPERTAB INPUT FILENAME ? <CR=OUT . UNI> ’ , $) 

0067 READ ( 5,30 ) OFILE 

0068 30 FORMAT ( A ) 

0069 C 

0070 IF ( OFILE (1 : 1) .EQ. » » ) OFILE= ’ OUT . UNI * 

0071 C 

0072 C Open the output file 

0073 C 

0074 OPEN ( UNIT=2,FILE=OFILE,STATUS=*NEW* , IOSTAT=IER,ERR=40 ) 

0075 C 

0076 GO TO 70 

0077 C 

0078 C Error control on open 

0079 C 

0080 40 IF ( IER.EQ.2013 ) THEN 

0081 WRITE ( 6,50 ) 

0082 50 FORMAT ( /IX, ’FILE ALREADY EXISTS OK TO OVERWRITE (CR=YES) >M 

0083 READ ( 5,30 ) ANSWER 

0084 C 

0085 IF ( ANSWERd : 1) .EQ. ’ Y* .OR. ANSWER ( 1 : 1 ). EQ . ’ ’ ) THEN 
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0086 


OPEN ( UNIT=2,F1LE=0FILE, STATUS='UNKNOWN 

0087 


1 ERR=40 ) 

0088 


REWIND 2 

0089 


END IF 

0090 


ELSE 

0091 


WRITE ( 6,60 ) 

0092 


60 FORMAT ( /IX, 'UNABLE TO OPEN FILE ' ) 

0093 


GO TO 10 

0094 


END IF 

0095 

C 


0096 

C 

Write the leading -1 

0097 

C 


0098 


70 ILT=-1 

0099 


WRITE ( 2,100 ) ILT 

0100 


100 FORMAT (16) 

0101 

C 


0102 

C 

Write the dataset id 

0103 

C 


0104 


IDS=56 

0105 


WRITE ( 2,110 ) IDS 

0106 


110 FORMAT (16) 

0107 

C 


0108 

C 

Write the id information 

0109 

C 


0110 


IF ( ITYPE.EQ.l ) THEN 

0111 


WRITE ( 2,120 ) 

0112 


ELSE 

0113 


WRITE ( 2,125 ) 

0114 


END IF 

0115 

C 


0116 


120 FORMAT ( IX, 'MAN-MADE ORBITAL DEBRIS ANALYSIS'! 

0117 


125 FORMAT ( IX, 'METEOROID ANALYSIS') 

0118 

C 


0119 


WRITE ( 2,130 ) 

0120 


130 FORMAT (IX, 'PROBABILITY OF PENETRATION (%) PER I 

0121 

c 


0122 


DO 150 1=1,3 

0123 


WRITE ( 2,140 ) 

0124 


140 FORMAT ('NONE') 

0125 


150 CONTINUE 

0126 

c 


0127 

c 

Write out record 6 

0128 

c 


0129 

c 

Set the 6 field values 

0130 

c 


0131 


161=1 

0132 


162=0 

0133 


163=1 

0134 


164=1 

0135 


165=2 

0136 


166=1 

0137 

c 


0138 


WRITE ( 2,160 ) 161,162,163,164,165,166 

0139 


160 FORMAT ( 6110 ) 

0140 

c 


0141 

c 

Write record 7 

0142 

c 


0143 

c 

Set the 3 field values 

0144 

c 


0145 


171=1 

0146 


172=1 

0147 


173=1 

0148 

c 
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0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 


WRITE ( 2,170 ) 171,172,173 
170 FORMAT ( 3110 ) 

C 

C Write out record 8 
C 

C Set the single field value 
C 

R81=0 .0 
C 

WRITE ( 2,180 ) R81 
180 FORMAT (E13.5) 

C 

C Write out record 9 & 10 for each element 
C 

DO 250 I=1,NELM 
C 

C Calculate the probability of penetration per surface area 
C 

PPEN=HISTORY(I) *100.0 /AREA (I) 

C 

C If the value of ppen is < .000001 no need to write data out 
C 

IF ( PPEN.LT.l.OE-06 ) GO TO 250 
C 

C Write record 9 
C 

C Set the 2 field values 
C 

I91=ID(1,I) 

192=1 

C 

WRITE ( 2, 190 ) 191, 192 
190 FORMAT ( 2110 ) 

C 

C Write record 10 
C 

WRITE ( 2,200 ) PPEN 
200 FORMAT ( E13.5 ) 

C 

C Next element 
C 

250 CONTINUE 
C 

C Write out trailing -1 
C 

WRITE ( 2,260 ) ILT 
260 FORMAT ( I6 ) 

C 

C Close the file 
C 

CLOSE ( UNIT=2 , STATUS= * KEEP * ) 

C 

C Finished return 
C 

RETURN 

C 

END 
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COMMON2 . BLK 


C 

C Common Block for Bumper Ver 4.0 5/25/87 
C 

C ielm - max number of elements 
C ith — max number of threats 
C 

PARAMETER ( IELM-9000 , ITH-400) 

C 

INTEGER*2 IT , ITYPE , NB . NC , NEL, NELM, NT,NV , EXPOSED(ITH) , 

1 POINT(IELM,ITH) 

C 

INTEGER*4 NR, ID(2 , IELM) ,RANGE(2 . 50) 

C 

REAL*4 BING, CBETA.DIAM.VINC, AREA (IELM) , GEOMETRY (IELM , ITH) , 

1 RESPONSE(70,90,5) ,THREAT(4,ITH) 

REAL*8 ALT , ETIME , FLX 
C 

COMMON ALT , BINC , CBETA , DIAM , ETIME , FLX , IT , ITYPE , NB , NC , NEL , NELM , 

1 NR , NT . NV , VR , VINC , AREA , EXPOSED , GEOMETRY , ID . POINT , RANGE ! 

2 RESPONSE, THREAT 
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Source code for CONTOUR Module 
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0001 c 

0002 ccccccccccccccccccccccccccccccccccccc 


0003 C c 

0004 C CONTOUR VER 2.0 6/5/87 C 

0005 C C 

0006 C BOEING AEROSPACE CO. C 

0007 C C 


0008 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0009 C 

0010 C 

0011 C CONTOUR develops data for producing design contour plots for 

0012 C use in designing spacecraft subject to meteoroid debris impact. 

0013 C It is a modification to the BUMPER code. THe modification involved 

0014 C making the RESPONSE code a subroutine and expanding the user input. 

0015 C The code ddevelops the data for a specific range of element ids 

0016 C and a single property id. 

0017 C 

0018 C The code was developed under NASA contract ’ Integrated Wall Design 

0019 C Guide and Penetration Control Plan’, by M. A. Wright and A. R . Coronado . 

0020 C 

0021 C 

0022 C 

0023 C 

0024 C Common Block Variable list 

0025 C 

0026 C Scalers 

0027 C 

0028 C alt = operating altitude , km 

0029 C bine = impact angle (beta) increment , deg 

0030 C cbeta = cosine of beta 

0031 C diam = critical diameter , cm 

0032 C etime = spacecraft exposure time , years 

0033 C fix = number of impacts per projected area per year of diameter D 

0034 C or larger 

0035 C itype = analysis type , 1- debris, 2-meteoroids 

0036 C nb = number of angles in the response array 

0037 C nel = current element number 

0038 C nelm = total niimber of elements 

0039 C nr = number of element ranges to sum over 

0040 C nt = number of threat cases 

0041 C nv = number of velocities in the response array 

0042 C vr = impact (relative) velocity , km/sec 

0043 C vine = impact (relative) velocity increment , km/sec 

0044 C 

0045 C Arrays 

0046 C 

0047 C area = array containing the value of the surface area for each 

0048 C element, sq-meters 

0049 C exposed = list of the number of exposed elements for each threat 

0050 C angle . 

0051 C geometry = array containing the values of the cosine of the impact 

0052 C angle for each exposed element for each threat angle. 

0053 C id = array containing the values of the element and property id 

0054 C for each element 

0055 C 1- id 

0056 C 2- pid 

0057 C point = array of the element numbers corresponding to the elements 

0058 C in the geometry array. 

0059 C range = array containing the starting and ending elment id for 

0060 C each range to sum over 

0061 C 1-starting id 

0062 C 2- ending id 

0063 C rtable = array containing the values of the critical diameter as 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 
D125 
0126 


C a function of impact angle and velocity. 

C (vr^beta^pid) 

C threat = array containg threat information 
C 1-theta angle^ rad 

C 2-phi angle, rad 

C 3-vr, Jcm/sec 

C 4-prob 

C history = list containing the running sum of the fa term for each 
C element 

C 
C 

C Main Program Variable List 
C 

C Scalers 
C 

C answer = user input 

C ctype = configuration type 

C 1- single plate 

C 2- double plate 

C fa =■ product of the threat probability, flux and cosine (beta) , 

C impacts /yr/sq-meter 

C kc = counter 

C mli = logical variable used to determine if multi-layer 
C insulation is to be included 

C nst = number of shield thickness's 

C nwt = number of vessel wall thickness's 

C pfunc = penetration function 

C 1- original 

C 2- pen4 

C 3- regression 

C pid = property id 

C pnp - probabibltiy of no penetration, % 

C prob = probabiltiy of threat case i occuring 

C rat = ratio of the shiled thickness to total thickness 

C shthk = shield thickness , in 

C stand = shield stand-off distance, in 

C sum = sum of the history array for the specific range 

C tlinc = shield thickness increment , in 
C tlmax * maximum shield thickness , in 

C tlmin = minimum shield thickness , in 

C t2inc = shield thickness increment , in 
C t2max = maximum shield thickness , in 

C t2min = minimum shield thickness , in 

C vwthk - vessel wall thickness, in 

C 
C 

C Arrays 
C 

C bhard = array containing the brinnel hardnes values for the shield 
C vessell wall and projectile 

C C = arrary containing the speed of sound values for the shield 
C vessel wall and projectile, ft/sec 

C dens = array containing the densisty of the shield vessel wall 
C and projectile, lbs/in**3 

C fsu = array containing the allowable shear stress for the shield 
C vessel wall and projectile, psi 

C ftu = array containing the allowable tensile ultimate stress for 
C the shield vessel wall and projectile, psi 

C fy = array containing the allowable yield stress for the shield 
C vessel wall and projectile, psi 

C wilkc = array containg Wilikinson's constant for the shield vessel 
C wall and projectile 

C 
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0127 

0128 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 


C 

INCLUDE » COMMON3 . BLK ’ 

C 

CHARACTER* 80 ANSWER 
C 

INTEGER*2 CTYPE, PID, PFUNC 
C 

LOGICAL ML I 
C 

REAL*4 STAND, TUNC, T1MAX,T1MIN,T2INC,T2MAX,T2MIN,BHARD (3) ,C(3) , 

1 DENS (3) ,FSU(3) ,FTU{3) ,FY(3) ,SHPV(3) ,WILKC(3) 

C 

REAL*8 FA,PROB,PNP, SUM, HISTORY ( lEL) 

C 

C Write header to screen, 

C 

CALL HEADER ( ITYPE ) 

C 

C Read in screen inputs 
C 

CALL INPUT ( CTYPE,MLI,PID,PFUNC, STAND, TUNC, T1MAX,T1MIN,T2INC, 

1 T2MAX, T2MIN, BHARD, C, DENS , FSU, FTU, FY, SHPV, WILKC ) 

C 

C Read in the GEOMETRY output file 
C 

CALL GEOREAD 
C 

C Set. the number of shield and vessel wail thickness cases 
C 

NST = NINT ( (TIMAX-TIMIN) /TUNC) +1 
NWT = NINT ( (T2MAX-T2MIN) /T2INC) +1 
C 

C Initialize counter to 1 
C 

KC = 1 
C 

C Loop through the various wall configurations 
C 

DO 1000 1=1, NWT 
C 

C Set vessel wall thickness 
C 

VWTHK=T2MIN+ (I-l) *T2INC 
C 

DO 900 J=1,NST 
C 

C Set the shield thickness 
C 

SHTHK=T1MIN+ ( J-1) *T1INC 
C 

C Check that configuration is within the limits 
C 

IF ( CTYPE.NE.l ) THEN 

RAT=SHTHK/ ( SHTHKtVWTHK) 

IF ( RAT. GT. 0.50 .OR. RAT. LT. 0.10 ) GO TO 900 
END IF 
C 

C Build the response array 
C 

CALL RESPONSE (BINC, CTYPE, ITYPE , MLI , NB, NV, PID, PFUNC, SHTHK, 

1 STAND, VWTHK, VINC, BHARD , C, DENS, FSU, FTU, FY, 

2 RTABLE, SHPV, WILKC ) 

C 
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0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 


C 

C 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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Initialize History to 0.0 

DO 50 K=1,NELM 

HISTORY (K)=0.0D0 
50 CONTINUE 

Initialize Sum to 0.0 

SUM =0.0D0 

Determine the penetrating flux for each element, for each threat 
angle 


DO 200 K-1,NT 

Set the threat index and get the impact velocity and the threat 
probability from the threat array 

VR=THREAT (3,K) 

PROB=THREAT(4,K) 

Evaluate each exposed element 

DO 100 L=l, EXPOSED (K) 

Set the element number 

NEL=POINT(L,K) 

IF ( RANGE(l) .GT.ID(1,NEL) ) GO TO 100 
IF ( RANGE(2) .LT. ID (1,NEL) ) GO TO 100 

Check that proprety id specified matches elements property id 
if not skip over element . 

IF ( PID.NE.ID (2,NEL) ) THEN 

GO TO 100 
END IF 

Get the cosine of the impact angle from the Geometry array. 
CBETA«GEOMETRY (L, K) 

Determine the diameter of the sphere that just penetrates the wall 
CALL CRITDIA 

Calculate the flux of the critical diameter using the appropriate 
flux equation based on the analysis type. 

CALL FLUX 

Multiply the flux by the probability of the threat angle and the 
cosine of the impact angle, this determines the number of 
penetrations per year per element surface area for the current 
element and the current threat angle. 

FA=FLX*PROB*CBETA 

Store the running sum of the FA term for each element in the History 
array. This value represents the total number of penetrations for 
a given element per year per element surface area. 


E - 4 



0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 
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HISTORY (NEL) ^HISTORY (NEL) +FA 
C 

C Next element 
C 

100 CONTINUE 

C 

C Next threat 
C 

200 CONTINUE 

C 

C Multiply each term in the HISTORY array by the appropriate element 
C surface area. 

C 

DO 250 K=1,NELM 

HISTORY (K) =HISTORY (K) *AREA (K) 

250 CONTINUE 

C 

C Sum up the HISTORY array by range 
C 

DO 310 K=1,NELM 

IF ( RANGE(l) .GT.ID(1,K) ) GO TO 310 
IF ( RANGE(2) .LT.ID(1,K) ) GO TO 310 
IF ( PID.NE.ID(2,K) ) GO TO 310 
SUM^SUM+HISTORY (K) 

310 CONTINUE 

C 

C Calculate the probabilty of no penetration for each range using 
C a Possion model 
C 

PNP=(DEXP (“SUM*ETIME) ) *100 .DO 
C 

C Write the probability value to the screen and the summary file. 

C 

WRITE ( 6,390 ) KC, SHTHK, STAND, VWTHK,PNP 

WRITE ( 10,390 ) KC, SHTHK, STAND, VWTHK,PNP 
390 FORMAT ( /IX, 14, 3F7 . 4, F12 . 5 ) 

C 

KC=KC+1 

C 

C Next shield thickness 
C 

900 CONTINUE 
C 

C Next vessel wall thickness 
C 

1000 CONTINUE 
C 

C Close summary file 
C 

CLOSE ( UNIT=10,STATUS=*KEEP* ) 

C 

C Finished 
C 

END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 
0063 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE HEADER ( ITYPE ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Header writes out the program header and reads in the summary file 
C name and analysis type ( meteoroid or debris ) . 

C 

C Variable list 
C 

C answer = user input 
C 

CHARACTER*80 ANSWER 
C 

C Write Header to screen 
C 

WRITE ( 6,10 ) 

10 FORMAT ( /IX, *###########################», //,5X, ’CONTOUR ’, 

1 ’Version 2 . 0 * , // , 5x, ’ last update 6/5/87 ’,// lx, 

2 t###########################. ) 

C 

C Read in summary output filename, set default to contour. sum 
C 

20 WRITE ( 6,30 ) 

30 FORMAT ( /IX, ’SUMMARY OUTPUT FILENAME (CR=CONTOUR . SUM) : ’,$) 

READ ( 5, ’ (A) ’ )ANSWER 
C 

IF ( ANSWER(1:1) .EQ. * ’ ) ANSWER^ ’ CONTOUR . SUM ’ 

C 

C Open sfile 
C 

OPEN ( UNIT=10,FILE=ANSWER, STATUS=’ UNKNOWN ’ ,ERR=40 ) 

C 

REWIND 10 
C 

GO TO 60 
C 

C Error control 
C 

40 WRITE ( 6,50 ) 

50 FORMAT {/IX, ’UNABLE TO OPEN FILE ’ ) 

GO TO 20 
C 

C Determine analysis type, set default to 1 (debris) 

C 

60 WRITE ( 6,70 ) 

70 FORMAT (/IX, ’ANALYSIS TYPE ?’,/, 2X, ’ 1-DEBRIS <CR> ’,/,2X, 

1 ’2-METEOROIDS’,/, IX, ’ANSWER 1 OR 2 : ’,$) 

READ ( 5, ’ (A) ’ ) ANSWER 
C 

IF ( ANSWER(1:1) .EQ. ’ ’ ) THEN 

ITYPE-1 
ELSE 

READ ( ANSWER(1:4), ’ (BN, 14) *,ERR=60 ) ITYPE 
END IF 
C 

C Check that input was correct 
C 

IF ( ITYPE. EQ.l .OR. ITYPE. EQ. 2 ) THEN 
CONTINUE 
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0064 



ELSE 



0065 



WRITE 

{ 6,80 ) 


0066 


80 

FORMAT 

( /IX, ' 

INCORRECT INPUT* ) 

0067 



GO TO 

60 


0068 



END IF 



0069 

C 





0070 

C 

Write analysis type 

and etime to summary file 

0071 

C 





0072 



WRITE ( 10,10 ) 


0073 

c 





0074 



IF ( ITYPE.EQ.l ) 

THEN 

0075 



WRITE 

( 10,90 

) 

0076 


90 

FORMAT 

( /IX, ' 

MAN-MADE ORBITAL DEBRIS ANALYSIS') 

0077 



ELSE 



0078 



WRITE 

( 10,100 

) 

0079 


100 

FORMAT 

( IX, 'METEOROID ANALYSIS' ) 

0080 



END IF 



0081 

c 





0082 

c 

Finished 



0083 

c 





0084 



RETURN 



0085 

c 





0086 



END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 
0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE INPUT ( CTYPE, MLI , PID, PFUNC, STAND, TUNC, TIMAX, TlMIN, 

1 T2INC, T2MAX, T2MIN, BHARD, C, DENS, FSU, FTU, FY, 

2 SHPV, WILKC ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C Input reads in the user defined inputs and writes them out to the 
C summary file. It is a modified version of the combined Resposne and 
C Bumper codes input subroutines . 

C 

C For variables in the common block see main listing 
C 

C Variable list 
C 

C ncases = potential numeber of wall configurations 

C metric = logical variable used to determine if input units are in 

C the metric system 

C Ic = mamber of materials red in from the MAT.PRP file 
C answer =■ user input 
C luniits = lenght units in or cm 
C 

C Array list 
C 

C dns * temporary array containing the density values in the MAT.PRP 
C file, lbs/in**3 

C con = temporary array containing the Wilkinson's constant in the 
C MAT.PRP file, km/sec 

C hrd = temporary array containing Brinnel Hardness values in the 
C MAT.PRP file, unitless 

C shr = temporary array containing the Shear stress allowable values 
C in the MAT.PRP file , psi 

C shk = temporary array containg the shock projectile velocities in 
C in the MAT.PRP file 

C ssnd - temporary array containing the speed of sound values in the 
C MAT.PRP file, ft/sec 

C ult = tempoary array containing the ultimate tensile stress 
C allowables in the MAT.PRP file 

C yld = temporary array containing yield stress allowables in the 
C MAT.PRP file 

C 
C 

INCLUDE ' COMMON3 . BLK ’ 

C 

C 

INTEGER*2 CTYPE, P ID, PFUNC 
C 

LOGICAL ML I 
C 

REAL*4 STAND, TUNC, T1MAX,T1MIN,T2INC,T2MAX,T2MIN, BHARD (3) ,C(3) , 

1 DENS (3) , FSU (3) , FTU (3) ,FY(3) , SHPV (3) , WILKC (3) 

C 

CHARACTER*2 LUNITS 
CHARACTER* 12 MNAM(IO) 

CHARACTER*20 ANSWER 
C 

INTEGER*2 LC,MAT(3) 

C 

LOGICAL METRIC 
C 

REAL*4 DNS (10) , CON (10) , HRD (10) , SHR (10) , SHK (10) , SSND (10) , ULT (10) , 
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YLD(IO) 
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0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 


C 

C 

C 


C 

C 

C 

C 


C 


C 


C 

C 

C 

c 


c 


c 

c 

c 


c 


c 

c 

c 


c 


c 

c 


Initialize variables 


LC=1 

MLI= . TRUE . 
METRIC^ . TRUE . 


Determine the spacecraft exposure time , set default to 10 years 
and write out to summary file 

10 WRITE < 6,20 ) 

20 FORMAT (/ IX, * SPACECRAFT EXPOSURE TIME (YEARS) <CR=10.0> : *,$) 

READ ( 5, MA) ’ ) ANSWER 

IF ( ANSWER(1:1) .EQ. ’ ' ) THEN 

ETIME==10 . ODO 
ELSE 

READ ( ANSWER(1:20), ’ (BN,D20.0) »,ERR=10 ) ETIME 
END IF 

WRITE ( 10,30 ) ETIME 

30 FORMAT ( / IX, ' SPACECRAFT EXPOSURE TIME (YEARS) =*,F7.2 ) 

Read in operating altitude , set default to 500 km, and write out to 
summary file 

40 WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'OPERATING ALTITUDE ( 400-500 km ) <CR=500> : ',$) 

READ ( 5, * (A) * ) ANSWER 

IF ( ANSWER (1 : 1) ,EQ. * ' ) THEN 

ALT=500 . ODO 
ELSE 

READ ( ANSWER(1:20) , ' (BN,D20.0) ',ERR=40 > ALT 
END IF 

Check that altitude is within range 

IF < ALT. LT. 350.0 .OR. ALT. GT. 550.0 ) THEN 
WRITE ( 6,60 ) 

60 FORMAT ( IX,* ERROR Altitude outside of range’ ) 

GO TO 40 
END IF 

WRITE { 10,70 ) ALT 

70 FORMAT ( / IX, * OPERATING ALTITUDE (km) = * , F7 . 2 ) 


Read in element range to sum over 
WRITE ( 6,80 ) 

80 FORMAT ( /IX, 'THE PROBABILITY OF NO PENETRATION WILL BE *, 

1 ’CALCULATED FOR A SPECIFIC RANGE * , / IX, ’ OF ELEMENT IDS ’, 

2 ’INPUT THE STARTING AND ENDING ELEMENT ID FOR EACH *, 

3 ' RANGE ’ ) 

90 WRITE ( 6, 100 ) 

100 FORMAT { /IX, ’STARTING ELEMENT ID : ’ , $) 

READ ( 5, ’ (A) ’ ) ANSWER 

READ ( ANSWER(1:20) , * (BN,I8) ’,ERR=90 ) RANGE ( 1 ) 

110 WRITE ( 6,120 ) 
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0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 


C 

C 

C 

C 


C 

C 

C 


C 

C 

C 

c 


c 


120 FORMAT ( IX, 'ENDING ELEMENT ID : 

READ ( 5, ' (A) * ) ANSWER 

READ ( ANSWER(1:20) ^ * (BN^I8) *,ERR=110 ) RANGE(2) 

Check that ending id > starting id 

IF ( RANGE (1) .GT. RANGE (2) ) THEN 

WRITE ( 6,130 ) 

130 FORMAT ( IX,* ERROR Staring ID greater then Ending ID*) 

GO TO 90 
END IF 


Write range out to summary file 


WRITE ( 10,140 ) RANGE (1) , RANGE (2) 

140 FORMAT ( / IX, * STARTING ELEMENT ID =*, 18 ,/ IX, * ENDING ELEMENT ID 
1 * =*,I8 ) 

Read in the material properties file, 

OPEN (UNIT=2 , FILE= * MAT . PRP * , STATUS^ * OLD * ) 


150 READ ( 2, * (A,BN,8E12.5) *,END=160 ) MNAM (LC) , DNS (LC) , YLD (LC) , 

1 ULT(LC) ,SHR(LC) ,CON(LC) , 

2 SSND (LC) , SHK(LC) , HRD (LC) 


LC=LC+1 
GO TO 150 


C 

160 CLOSE ( UNIT=2,STATUS«»KEEP» ) 

LC=LC-1 

C 

C Determine the type of units for input . 

C 

WRITE ( 6,170 ) 

170 FORMAT (/IX, 'INPUT IN METRIC OR ENGLISH UNITS <CR>=METRIC : *,$) 

READ ( 5, * (A) * ) ANSWER 
C 


IF ( ANSWER(1:1) ,EQ. *E* ) METRIC= . FALSE . 
C 

C Set the units 
C 

180 IF ( METRIC ) THEN 
LUNITS»*CM* 

ELSE 


LUNITS»*IN* ' 
END IF 


C 

C Read in property id 
C 

185 WRITE ( 6, 190 ) 

190 FORMAT ( /IX, 'PROPERTY ID = <CR=1> :*,$) 

READ ( 5, * (A) » ) ANSWER 
C 

IF ( ANSWERd : 1) ,EQ. » ' ) THEN 

PID=1 
ELSE 

READ ( ANSWERd : 20) ,* (BN, 14) * ,ERR=185 ) PID 
END IF 
C 

IF ( PID.GT.IO .OR. PID.LT.l ) THEN 

WRITE ( 6, * (/IX, * 'INCORRECT INPUT*' )* ) 
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0212 


GO TO 185 



0213 


END IF 



0214 

C 




0215 


WRITE ( 10, ' (/IX, ' 'PROPERTY ID = '',14 )' ) PID 



0216 

C 




0217 

C 

Determine configuration type and write out to summary file 


0218 

C 




0219 


200 WRITE ( 6,210 ) 



0220 


210 FORMAT ( /IX, 'CONFIGURATION TYPE ' , / , 5X, ' 1- SINGLE PLATE 

’,/, 

0221 


1 5X, '2- DOUBLE PLATE <CR> ',/, IX, 'ANSWER (1 or 

2) 

: ',$) 

0222 


READ ( 5, ' (A) ' ) ANSWER 



0223 

C 




0224 


IF ( ANSWER (1 : 1) .EQ. ' ' ) THEN 



0225 


CTYPE=2 



0226 


ELSE 



0227 


READ ( ANSWER (1 ; 4) , ' (BN, 14) ' ,ERR=200 ) CTYPE 



0228 


END IF 



0229 

C 




0230 

C 

Check that the input was correct 



0231 

C 




0232 


IF ( CTYPE. LT.l .OR. CTYPE. GT. 2 ) THEN 



0233 


WRITE ( 6,220 ) 



0234 


220 FORMAT ( /IX, ' INCORRECT INPUT' ) 



0235 


GO TO 200 



0236 


END IF 



0237 

C 




0238 


IF ( CTYPE. EQ.l ) THEN 



0239 


WRITE ( 10,230 ) 



0240 


230 FORMAT ( /IX, 'SINGLE PLATE ' ) 



0241 


ELSE 



0242 


WRITE ( 10,240 ) 



0243 


240 FORMAT ( /IX, 'DOUBLE PLATE ANALYSIS' ) 



0244 


END IF 



0245 

C 




0246 

c 

For single plate configuration skip down to the vessel wall 

material 

0247 

c 




0248 


IF ( CTYPE. EQ.l ) GO TO 430 



0249 

c 




0250 

c 

Determine which double wall penetration function to use and 

write 

0251 

c 

out to summary file 



0252 

c 




0253 


250 WRITE ( 6,260 ) 



0254 


260 FORMAT ( /IX, 'PENETRATION FUNCTION ',/, 5X, ' 1-ORIGINAL 

<CR> ' , / , 

0255 


1 5X, '2-PEN4',/,5X, '3-REGRESS ION',/, IX, 'ANSWER 

(1- 

-3) : ', 

0256 


2 $) 



0257 

c 




0258 


READ ( 5, ' (A) ' ) ANSWER 



0259 


IF ( ANSWERd : 1) .EQ. ' ' ) THEN 



0260 


PFUNC=1 



0261 


ELSE 



0262 


READ ( ANSWER(1:20) , ' (BN,I4) ',ERR=250 ) PFUNC 



0263 


END IF 



0264 

c 




0265 

c 

Check Input 



0266 

c 




0267 


IF ( PFUNC.lt. 1 .OR. PFUNC. GT. 3 ) GO TO 250 



0268 

c 




0269 


IF ( PFUNC .EQ.l ) THEN 



0270 


WRITE ( 10,270 ) 



0271 


270 FORMAT ( /IX, 'ORGINAL PENETRATION FUNCTION' ) 



0272 


ELSE IF ( PFUNC. EQ. 2 ) THEN 



0273 


WRITE ( 10,280 ) 



0274 


280 FORMAT ( /IX, 'PEN4 PENETRATION FUNCTION' ) 
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0275 ELSE IF ( PFUNC.EQ.3 ) THEN 

0276 WRITE ( 10,290 ) 

0277 290 FORMAT ( /IX, 'REGRESSION PENETRATION FUNCTION' ) 

0278 END IF 

0279 C 

0280 C Determine the shield material. 

0281 C 

0282 300 WRITE ( 6,310 ) 

0283 310 FORMAT (/IX, 'SHIELD MATERIAL ') 

0284 C 

0285 C Write out the material list. 

0286 C 

0287 DO 320 1=1, LC 

0288 WRITE ( 6,315 )I,MNAM(I) 

0289 315 FORMAT ( 3X,I2,'- ',A ) 

0290 320 CONTINUE 

0291 C 

0292 C Set the material default number equal to one. 

0293 C 

0294 330 WRITE ( 6,340 ) 

0295 340 FORMAT (IX, 'SELECT MATERIAL NUMBER <CR>=1 : ',$) 

0296 READ ( 5, ' (A) ' ) ANSWER 

0297 C 

0298 IF ( ANSWERd : 1) .EQ. ' ') THEN 

0299 MAT(1)=1 

0300 ELSE 

0301 READ ( ANSWERd ; 4) , ' (BN, 14) ' ,ERR=330 ) MAT(l) 

0302 END IF 

0303 C 

0304 C Chec)c that the value read in is contained in the list . 

0305 C 

0306 IF ( MAT(l) .LT.l .OR. MAT(1).GT. LC ) GO TO 330 

0307 C 

0308 C Write shield material out to summary file 

0309 C 

0310 WRITE ( 10,350 ) MNAM(MATd)) 

0311 350 FORMAT ( /IX, 'SHILED MATERIAL = ',A ) 

0312 C 

0313 C Determine the shield minimum, maximum, and increment thic)cness. 

0314 C 

0315 360 WRITE ( 6,370 ) LUNITS 

0316 370 FORMAT ( /IX, 'MINIMUM SHIELD THICKNESS C,A, ') = : ',$) 

0317 READ ( 5,*,ERR=360 ) TIMIN 

0318 C 

0319 380 WRITE ( 6,390 ) LUNITS 

0320 390 FORMAT ( /IX, 'MAXIMUM SHIELD THICKNESS (',A, ') = : ',$) 

0321 READ ( 5,*,ERR=380 ) TIMAX 

0322 C 

0323 400 WRITE ( 6,410 ) LUNITS 

0324 410 FORMAT ( /IX, ' INCREMENT SHIELD THICKNESS C,A, ') = : ',$) 

0325 READ ( 5,*,ERR=400 ) TUNC 

0326 C 

0327 C Write out values to summary file 

0328 C 

0329 WRITE ( 10, 420 ) LUNITS, TIMIN, TIMAX, TUNC 

0330 420 FORMAT ( /IX, 'MINIMUM MAXIMUM AND INCREMENT SHIELD THICKNESS (', 

0331 1 A, ') = ',/lX, 3F7.4 ) 

0332 C 

0333 C Determine the vessel wall material. 

0334 C 

0335 430 WRITE ( 6, 440 ) 

0336 440 FORMAT (/IX, 'VESSEL WALL MATERIAL ' ) 

0337 C 
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0338 DO 450 1=1, LC 

•0339 WRITE ( 6,315 ) I,MNAM(I) 

0340 450 CONTINUE 

0341 C 

0342 460 WRITE ( 6 ,340 ) 

0343 READ ( 5, ' (A) ' ) ANSWER 

0344 C 

0345 IF ( ANSWER (1:1) .EQ. ' ' ) THEN 

0346 MAT(2)=1 

0347 ELSE 

0348 READ ( ANSWER ( 1 : 4 ) , ' (BN, 14) ' , ERR=460 ) MAT(2) 

0349 END IF 

0350 C 

0351 IF ( MAT(2).LT.l .OR. MAT(2).GT.LC ) GO TO 460 

0352 C 

0353 C Write vessel wall material out to summary file 

0354 C 

0355 WRITE ( 10,470 ) MNAM(MAT(2)) 

0356 470 FORMAT ( /IX, 'VESSEL WALL MATERIAL = ',A ) 

0357 C 

0358 C Determine the minimiim , maximum, and increment vessel wall thiclcness 

0359 C 

0360 480 WRITE ( 6,490 ) LUNITS 

0361 490 FORMAT (/IX, 'MINIMUM VESSEL WALL THICKNESS (',A,') = : ’,$) 

0362 READ ( 5,*,ERR=480 ) T2MIN 

0363 C 

0364 500 WRITE ( 6,510 ) LUNITS 

0365 510 FORMAT (/IX, 'MAXIMUM VESSEL WALL THICKNESS C,A, ') = : ',$) 

0366 READ ( 5,*,ERR=500 ) T2MAX 

0367 C 

0368 520 WRITE ( 6,530 ) LUNITS 

0369 530 FORMAT (/IX, ' INCREMENT VESSEL WALL THICKNESS (',A, ') = : ',$) 

0370 READ ( 5,*,ERR=520 ) T2INC 

0371 C 

0372 C Checlc if number of potential cases is o)c 

0373 C 

0374 IF { TUNC. EQ. 0.0 ) T1INC=1.0 

0375 NCASES=( (T2MAX-T2MIN) /T2INC+1) * ( (TIMAX-TIMIN) /TlINC+1) 

0376 C 

0377 WRITE ( 6,540 ) NCASES 

0378 540 FORMAT (/IX, 'THE NUMBER OF POTENTIAL CASES IS ',16, /IX, 'DO YOU ', 

0379 1 'WISH TO CONTINUE ? <CR=YES> : ',$) 

0380 READ ( 5, ' (A) ' ) ANSWER 

0381 C 

0382 IF ( ANSWERd : 1) .EQ. 'N' ) GO TO 300 

0383 C 

0384 C Write values out to the summary file 

0385 C 

0386 WRITE ( 10,550 ) LUNITS, T2MIN, T2MAX, T2 INC 

0387 550 FORMAT ( /IX, 'MINIMUM MAXIMUM AND INCREMENT VESSEL WALL ', 

0388 1 'THICKNESS C,A, ') = ',/lX,3F7.4 ) 

0389 C 

0390 C For single plate configuration skip stand-off and mli 

0391 C 

0392 IF ( CTYPE.EQ.l ) GO TO 610 

0393 C 

0394 C Determine the shield stand-off distance and write out to the summary 

0395 C file. 

0396 C 

0397 560 WRITE ( 6,570 ) LUNITS 

0398 570 FORMAT ( /IX, 'SHIELD STAND-OFF ( ' , A, ' ) = : ',$) 

0399 READ ( 5,*,ERR=560 ) STAND 

0400 C 
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0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 


WRITE ( 10,580 ) LUNITS, STAND 

580 FORMAT ( /IX, 'SHIELD STAND-OFF ( * , A, ' ) = *,F12.5 ) 

C 

C Determine if MLI is to be included, but not for the pen4 penetration 
C function 
C 

IF ( PFUNC.EQ.2 ) GO TO 610 
C 

WRITE ( 6,590 ) 

590 FORMAT (/IX, 'INCLUDE 30 LAYERS OF MLI BETWEEN PLATES <CR>=Y : 

1 $) 

READ ( 5, * (A) ’ )ANSWER 

IF ( ANSWER(1:1) .EQ. ' ' .OR. ANSWER ( 1 : 1) . EQ Y * ) MLI= . TRUE . 

C 

IF ( MLI ) THEN 

WRITE ( 10,600 ) 

600 FORMAT ( /IX, '30 LAYERS OF MULTI-LAYER INSULATION INCLUDED' ) 

END IF 
C 

C Set the projectile material property based on analysis type 
C For debris 100-0 al, for meteoroids only density is important use 
C use 0.50 g/cc . 

C 

610 IF ( ITYPE.EQ.l ) THEN 
BHARD (3) =23.0 
C(3)=16550.0 
DENS (3) =0.098 
FSU(3)=5000.0 
FTU(3)=13000.0 
FY(3)=9000 .0 
SHPV(3)=1.345 
WILKC (3) =. 126 

ELSE 

BHARD (3) =0 . 0 
C(3)=0.0 

DENS(3)=0. 50/27. 705 

FSU(3)=0.0 

FTU(3)=0.0 

FY(3)=0.0 

SHPV(3)=0.0 

WILKC (3) =0 . 0 

END IF 

C 

C Build the material properties arrays. 

C 

DO 650 1=1,2 

BHARD (I) =HRD (MAT (I) ) 

C(I)=SSND(MAT(I) ) 

DENS (I)=DNS (MAT (I) ) 

FSU(I)=SHR(MAT(I) ) 

FTU(I)»ULT(MAT(I) ) 

FY(I)=YLD (MAT(I) ) 

SHPV(I)-SHK(MAT(I) ) 

WILKC(I)=CON(MAT(I) ) 

650 CONTINUE 
C 

C If the variables were read in in metric units, convert to english. 

C 

IF ( METRIC ) THEN 
TlMIN=TlMIN/2 . 54 
TlMAX=TlMAX/2 .54 
T1INC=T1INC/2.54 
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0464 


T2MIN=T2MIN/2 .54 

0465 


T2MAX=T2MAX/2 .54 

0466 


T2lNC=T2lNC/2 .54 

0467 • 


STAND=STAND/2 .54 

0468 

0469 

C 

END IF 

0470 

0471 

C 

RETURN 

0472 


END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE GEOREAD 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Georead reads in the output file from the GEOMETRY code. This file 
C contains the global threat and element data as well as the list of 
C exposed elements and their impact angles for each threat case. 

C 

C 

C 

C note: for variables contained in the common block refer to main 
C listing for definition 

C 
C 

C Variable List 
C 

C answer = character string representing user input 
C gfile = geometry output filename 
C itf = analysis type contained in the 
C 
C 

INCLUDE 'COMMON3.BLK* 

C 

CHARACTER*80 ANSWER, GFILE 
C 

INTEGER*2 ITF 
C 

C Read in the GEOMETRY output filename, set the default to geom.dat 
C 

10 WRITE ( 6,20 ) 

20 FORMAT (/IX, 'GEOMETRY OUTPUT FILENAME ? <CR=STATION . GEM> >',$) 
READ { 5,30 ) GFILE 
30 FORMAT (A) 

C 

IF ( GFILE (1 : 1) ,EQ. ' ' ) GF I LE= ' STATION . GEM * 

C 

C Open the file 
C 

OPEN (UNIT-2, FILE=GFILE,STATUS=' OLD * ,FORM=' UNFORMATTED ' ,ERR=4 0 ) 
C 

GO TO 60 
C 

C Error control 
C 

40 WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'UNABLE TO OPEN FILE ' ) 

GO TO 10 
C 

C Read in the analysis type, the number of threat cases, and the 
C number of elements 
C 

60 READ (2) ITF,NT,NELM 
C 

C Check that the analysis type in the file matches the type input 
C by user. 

C 

IF ( ITF.NE.ITYPE ) THEN 
IF ( ITYPE.EQ.l ) THEN 
WRITE ( 6,70 ) 
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0086 


70 


FORMAT ( /IX, 'DEBRIS ANALYSIS SPECIFIED BUT FILE IS 

FOR ', 

0087 


1 


’METEOROIDS') 


0088 




ELSE 


0089 




WRITE ( 6,80 ) 


0090 


80 


FORMAT ( /IX, 'METEOROID ANALYSIS SPECIFIED BUT FILE 

IS ', 

0091 


1 


'FOR DEBRIS' ) 


0092 




END IF 


0093 

C 





0094 




WRITE ( 6,90 ) 


0095 


90 


FORMAT ( /IX, 'DO YOU WISH TO CONTINUE (CR=NO) >',$) 


0096 




READ ( 5,30 ) ANSWER 


0097 

C 





0098 




IF ( ANSWERd : 1) .EQ. 'Y' ) THEN 


0099 




GO TO 10 


0100 




ELSE 


0101 




STOP 


0102 




END IF 


0103 

C 





0104 



END IF 


0105 

C 





0106 

C 

Check that the number of threats and the member of elements 

are les: 

0107 

C 

then 

the maximum allowed 


0108 

C 





0109 



IF 

( NT.GT.ITH ) THEN 


0110 




WRITE ( 6,100 ) 


0111 


100 


FORMAT ( /IX, 'NUMBER OF THREATS IS GREATER THEN MAX ALLOWED') 

0112 




WRITE ( 6,105 ) 


0113 


105 


FORMAT ( IX, 'ARRAY SIZE MUST BE INCREASED & CODE RECOMPILED') 

0114 




STOP 


0115 



END IF 


0116 

C 





0117 



IF 

( NELM.GT.IEL ) THEN 


0118 




WRITE ( 6,110 ) 


0119 


110 


FORMAT ( /IX, 'NUMBER OF ELEMENTS IS GREATER THEN MAX ALLOWED') 

0120 




WRITE ( 6,105 ) 


0121 




STOP 


0122 



END IF 


0123 

C 





0124 

C 

Initialize the arrays to 0.0 


0125 

C 





0126 



DO 

150 1=1, NT 


0127 




THREAT (3, I) =0 . 0 


0128 




THREAT (4, I) =0.0 


0129 




EXPOSED (I) =0 


0130 




DO 140 J=1,NELM 


0131 




GEOMETRY (J, I) =0.0 


0132 




ID (1, J) =0 


0133 




ID (2, J) =0 


0134 




POINT(J, I)=0 


0135 


140 


CONTINUE 


0136 


150 

CONTINUE 


0137 

C 





0138 

C 

Read 

in the Threat data 


0139 

C 





0140 



DO 

175 1=1, NT 


0141 




READ (2) (THREAT (J, I) , J=l, 4) 


0142 


175 

CONTINUE 


0143 

C 





0144 

C 

Read 

in the element id, and property id storing them in the 

ID 

0145 

C 

array 

. 


0146 

C 





0147 



DO 

200 I=1,NELM 


0148 




READ (2) (ID(J, I) , J=l,2) 
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0149 200 CONTINUE 

0150 C 

0151 C Read in the element’s surface area storing it in the AREA array, 

0152 C 

0153 DO 250 I=1^NELM 

0154 READ (2) AREA(I) 

0155 250 CONTINUE 

0156 C 

0157 C 

0158 C 

0159 

0160 C 

0161 C 

0162 C 

0163 

0164 C 

0165 C 

0166 C 

0167 

0168 C 

0169 C 

0170 C 

0171 C 

0172 

0173 C 

0174 400 CONTINUE 

0175 C 

0176 500 CONTINUE 

0177 C 

0178 C Write gfile to summary file 

0179 C 

0180 WRITE ( 10,600 ) GFILE 

0181 600 FORMAT ( IX, 'GEOMETRY OUTPUT FILE = ',A ) 

0182 C 

0183 C Close file 

0184 C 

0185 CLOSE ( UNIT=2, STATUS='KEEP ' ) 

0186 C 

0187 RETURN 

0188 C 

0189 END 


Read in the geometry data for the exposed elements 
DO 500 I-1,NT 

Read in the threat case and the number of exposed elements 
READ (2) IT, EXPOSED (I) 

Loop thru the exposed elements 
DO 400 J=l, EXPOSED (I) 

Read in the element number (storing in the POINT array) , and the 
cosine of the impact angle (storing in the GEOMETRY array) . 

READ (2) POINT (J, I) , GEOMETRY (J, I) 
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c D 180-30550-4 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCC 

c 

SUBROUTINE RESPONSE ( AINCR, CTYPE , ITYPE , MLI , NANG, NVEL, PID , PFUNC , 

1 SHTHK, STAND, VWTHK, VINCR, BHARD, C, DENS , FSU, 

2 FTU,FY,RTABLE, SHPV, WILKC ) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Variable list 


c 

C aincr = impact angle increment , deg 
C amax =» maximum impact angle, deg 

C amin = minimum impact angle, deg 

C ang = impact angle, deg 

C angr = impact angle, radians 

C answer = character string representing user input 
C ctype = configuration type 

C 1- single plate 

C 2 - double plate 

C dia = projectile diameter, in 

C diam = " ", cm 

C ic = case counter 

C initial = logical variable used to detrmine if current call to 
C diameter is the initial one for the current angle 

C itype = analysis type,l=space debris 
C 2=meteoroids 

C mli = logical variable used to detrmine if 30 layers of mli is 
C included 

C nang = number of angles to be considered 

C nvel = number of velocities to be considerd 

C pfunc = penetration function 

C 1-orginal 

C 2-pen4 

C 3 -regress ion 

C shthlc = shield thickness, in 

C stand = shield stand-off, in 

C vele = impact velocity, ft /sec 
C velm = ” ** , km/ sec 

C vincr = velocity increment , km/ sec 
C vmax * maximum velocity, km/sec 

C vmin = minimum velocity, km/sec 

C 


c 

C Array list 
C 

C bhard = array containing the Brinnel hardness values for the 
C current configuration 

C c = array containing the speed of sound values for the current 
C configuration, ft/sec 

C dens = array containing the density values for the current 
C configuration, lbs/in**3 

C fsu = array containing the shear allowable stress values for the 
C current configuration, psi 

C ftu = array containing the ultimate tensile stress values for the 
C current configuration, psi 

C fy = array containing the yield stress values for the current 
C configuration 

C rtable = array containing the critcal diameters for each case, angle 
C and velocity 

C shpv =array containing the shock projectile velocities for the 
C current configuration 
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0064 

C 

wilkc = array containing the values for Wilkinson's constant 

0065 

C 

the current configuration, km/ sec 

0066 

C 


0067 

C 


0068 

C 


0069 

C 


0070 


CHARACTER*20 ANSWER 

0071 

C 


0072 


DIMENSION RTABLE (70, 50, 10) 

0073 

C 


0074 


DIMENSION BHARD (3) ,C (3) ,DENS (3) ,FSU(3) ,FTU(3) ,FY(3) , SHPV(3) 

0075 


1 WILKC (3) 

0076 

c 


0077 


INTEGER*2 CTYPE, IC, ITYPE, NANG, NVEL, PID, PFUNC 

0078 

c 


0079 


LOGICAL INITIAL, METRIC, MLI 

0080 

c 


0081 

c 

Set the angle and velocity limits and increments 

0082 

c 


0083 

c 

Amin must always =0 

0084 

c 


0085 


AMIN-0 . 0 

0086 

c 


0087 


AMAX-90 . 0 

0088 


AINCR-5 . 0 

0089 

c 


0090 

c 

Determine the number of velocity and angle iterations 

0091 

c 


0092 


NANG = (AMAX-AMIN) /AINCR + 1 

0093 

c 


0094 

c 

Set velocity values based on analysis type 

0095 

c 


0096 

c 

Vmin must always = 0 

0097 

c 


0098 


VMIN-0 . 0 

0099 

c 


0100 


IF ( ITYPE. EQ.l ) THEN 

0101 


VMAX-17 . 0 

0102 


VINCR-0 .25 

0103 


ELSE 

0104 


VMAX-70 . 0 

0105 


VINCR-1 . 0 

0106 


END IF 

0107 

c 


0108 


NVEL- (VMAX-VMIN) /VINCR 

0109 

c 

For the current configuration, determine the critical diameter 

0110 

c 

for each impact angle and velocity 

0111 

c 


0112 


DO 200 1=1, NANG 

0113 

c 


0114 

c 

Set the angle, in deg and radians 

0115 

c 


0116 


ANG = 0.0 + (I-1)*AINCR 

0117 

c 


0118 

c 

For angles > 60 deg, set ang=60 

0119 

c 


0120 


IF ( ANG .GT. 60.0 ) ANG-60.0 

0121 

c 


0122 

c 

Convert ang to radians 

0123 

c 


0124 


ANGR = ANG / 180.0 * 3.141592 

0125 

c 


0126 

c 

Set initial equal .to true 
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0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 
014 4 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


INITIAL=.TRUE. 

DO 100 J=1,NVEL 

Set the velocity in ft/sec and km/sec 
VELM = J*VINCR 
Convert vel to ft /sec 

VELE = VELM * l.OE+05 / 2.54 / 12.0 
Determine the critical diameter, as a function of wall configuration 
IF { CTYPE.EQ.2 ) THEN 

For the original and regression penetration functions use DOUBLE 
subroutines 


IF ( PFUNC.EQ.l .OR. PFUNC.EQ.3 ) THEN 

CALL DOUBLE ( ANGR, DIA, INITIAL, ITYPE, MLI , PFUNC, SHTHK, ' 

1 STAND, VELE, VELM, VWTHK, BHARD, C, DENS , 

2 FSU,FTU,FY,SHPV, WILKC ) 

For Pen4 use the pen4 subroutine 

ELSE IF ( PFUNC.EQ.2 ) THEN 

CALL PEN4 ( ANGR, BHARD, C, DENS, DIA, VWTHK, FY,FSU,FTU, 

1 INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 

END IF 

ELSE 

CALL SINGLE ( ANGR, DIA, VELE, VWTHK, DENS , FTU ) 

END IF 

Convert the diameter to cm 
DIAM = DIA * 2.54 


C 

C 

C 

C 

C 

C 

C 

C 


Store the diameter in RTABLE 
RTABLE (J, I,PID)=DIAM 
100 CONTINUE 
200 CONTINUE 
RETURN 


END 
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^ D 180-30550-4 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE DOUBLE (ANGR.DIA, INITIAL, IT YP E, MLI , PFUNC, SHTHK, STAND , 

VELE, VELM, VWTHK, BHARD, C, DENS, FSU, FTU, FY, 
SHPV,WILKC) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C DOUBLE DETERMINES THE PROJECTILE DIAMETER THAT JUST PENETRATES 
C THE GIVEN DOUBLE PLATE CONFIGURATION AT THE GIVEN IMPACT VELOCITY 
C AND ANGLE. IT IS USED FOR BOTH THE ORGINAL AND REGRESSION 
C PENETRATION FUNCTIONS. 

C 

C 

C 

C VARIABLE LIST 

C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

C BALL = LOGICAL PARAMETER USED TO DETERMINE IF THE BALLITIC 

C SUBROUTINES ARE CALLED 

C BHARD = ARRAY CONTAINING THE VALUES OF THE BRINNEL HARDNESS FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C BRIST = LOGICAL PARAMETER USED TO DETERMINE IF THE FRAGMENTING 

C SUBROUTINES ARE CALLED 

C C = ARRAY CONTAINING VALUES FOR THE SPEED OF SOUND (FT/SEC) FOR 

C THE SHIELD AND VESSEL WALL MATERIALS 

C DIA = PROJECTILE DIAMETER ( IN. ) 

C DIAB = DIAMETER AS DETERMINED BY SUBROUTINE BRISTOW ( IN . ) 

C DIABL = DIAMETER AS DETERMINED BY SUBROUTINE BALLIST ( IN . ) 

C DIAW = DIAMETER AS DETERMINED BY SUBROUTINE WILKIN ( IN . ) 

C EVWTHK = EQUIVALENT VESSEL WALL THK . ( IN . ) 

C FY = ARRAY CONTAINING THE VALUES OF THE YIELD STRENGTH FOR THE 

C SHIELD & VESSEL WALL MATERIALS 

C FSU = ARRAY CONTAING VALUES OF THE ULTIMATE SHEAR STRENGTH (PS I) 

C FOR THE SHIELD AND VESSEL WALL MATERIALS 

C FTU - ARRAY CONTAING VALUES OF THE ULTIMATE TENSILE STRENGTH (PS I) 

C FOR THE SHIELD AND VESSEL WALL MATERIALS 

C INITIAL = LOGICAL PARAMETER USED TO DETERMINE IF CURRENT 

C SUBROUTINE CALL IS INITIAL ONE 

C ITYPE == ANALYSIS TYPE 1=*DEBRIS & METEOROIDS, 2=METEOROIDS 

C MLI = CHARACTER STRING USED TO DETERMINE IF MLI IS USED IN WALL 

C PFUNC = PENETRATION FUNCTION 

C 1- ORIGINAL 

C 2- PEN4 

C 3- REGRESSION 

C SHATTER = LOGICAL PARAMETER USED TO DETERMINE IF PEN4 BALLISTIC 

C LIMITS HAVE BEEN EXCEEDED 

C SHPV = ARRAY CONTAINING THE VALUES FOR THE SHOCK PROJECTILE 

C VELOCITY (FT/SEC ) OF THE SHIELD & VESSEL WALL MATERIALS 

C SHTHK = SHIELD THICKNESS ( IN. ) 

C STAND = SHIELD STAND-OFF DISTANCE (IN.) 

C THKMLI » EQUIVALENT THK OF 30 LAYERS OF MLI ( IN. ) 

C VELE * VEL IN FT/SEC 

C VELM * VEL IN KM/SEC 

C VWTHK - VESSEL WALL THICKNESS ( IN. ) 

C WILKC = ARRAY CONTAINING THE VALUES OF WILKINSON'S CONSTANT FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C 

INTEGER*2 ITYPE, PFUNC 
C 

DIMENSION BHARD (3) ,C(3) , DENS (3) ,FY (3) , FSU (3) , FTU (3) , SHPV (3) , 
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0064 


WILKCO) 


0065 

C 



0066 


LOGICAL BALL,BRIST, INITIAL, MLI , SHATTER 


0067 

C 



0068 

C 

INITIALIZE VARIABLES 


0069 

C 



0070 


IF ( INITIAL ) THEN 


0071 


BALL= . TRUE . 


0072 


BRIST=.TRUE. 


0073 


DIA=.01 


0074 


SHATTER= . FALSE . 


0075 


END IF 


0076 

C 



0077 

C 

TAKE 30 LAYERS OF MLI INTO ACCOUNT USING COUR-PALAIS ' S EQN. 


0078 

C 

SET LIMIT FOR EQN. AT 10 KM/ SEC OR SKIP OVER SECTION ENTIRELY 

0079 

C 



0080 

c 



0081 


IF (.NOT. MLI ) THEN 


0082 


THKMLI =0.0 


0083 


GO TO 50 


0084 


END IF 


0085 

c 



0086 


IF ( VELM .LT. 10.0 ) THEN 


0087 


THKMLI = 3.045E-06 * ( VELM ** 3.42 ) 


0088 


ELSE 


0089 


THKMLI = 3.045E-06 * ( 10.0 ** 3.42 ) 


0090 


END IF 


0091 

c 



0092 

c 

CONVERT TO IN. 


0093 

c 



0094 


THKMLI = THKMLI / 2.54 


0095 

c 



0096 

c 

ADD EQUIVALENT THK. OF MLI TO VESSEL WALL THK. 


0097 

c 



0098 

50 

EVWTHK = VWTHK + THKMLI 


0099 

C 



0100 

c 



0101 

c 

DETERMINE DIAMETER IN IN. THAT PENETRATES THE SHIELD AND 


0102 

c 

JUST DOES NOT PENETRATE THE VESSEL WALL 


0103 

c 



0104 

c 

IF THE ANALYSIS IS FOR METEOROIDS, THEN ONLY USE WILKINSON’S 

METHOD 

0105 

c 

TO DETERMINE THE PENETRATION DIAMETER 


0106 

c 



0107 

c 



0108 


IF ( ITYPE .EQ. 2 .OR. VELM .GT. 12.0 ) THEN 


0109 


BALL= . FALSE . 


0110 


BRIST=. FALSE. 


0111 


GOTO 500 


0112 


END IF 


0113 

c 



0114 

c 

INITIALLY CALCULATE THE PENETRATION DIAMETER USING BOTH THE 


0115 

c 

BALLISTIC AND FRAGMENTING SUBROUTINES. THE DIAMETER CALCULATED BY 

0116 

c 

THE BALLISTIC SUBROUTINE IS USED UNTIL THE VALUE CALCULATED : 

FROM 

0117 

c 

THE FRAGMENTING SUBROUTINE IS GREATER. AT THAT TIME IT IS NO 

LONGER 

0118 

c 

NECESSARY TO CALL THE BALLISTIC SUBROUTINES . 


0119 

c 



0120 

c 

FOR THE ORGINAL PENETRATION FUNCTION THE OLD VERSION OF PEN4 

IS USED 

0121 

c 

IN THE BALLISTIC REGIME AND THE BURCH MODIFIED EQUATIONS ARE 

USED 

0122 

c 

IN THE FRAGMENTING REGIME. 


0123 

c 



0124 

c 

FOR THE REGRESSION PENETRATION FUNCTION THE NEW PEN4 IS USED 

IN 

0125 

c 

THE BALLISTIC REGIME AND THE REGRESSION EQUATIONS ARE USED IN 

0126 

c 

FRAGMENTING REGIME. 
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0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 
0189 


c D 180-30550-4 

c 

IF (BALL) THEN 

IF ( PFUNC.EQ.l 
CALL BALLIST 

1 

ELSE 

CALL PEN 4 ( 

1 

END IF 

DIABL-DIA 
C 

IF ( PFUNC.EQ.l. ) THEN 

CALL BRISTOW (ANGR, C, DIA, EVWTHK, INITIAL^ SHTHK, STAND, VELE) 
ELSE 

CALL REGRESS ( ANGR, DIA, MLI , SHTHK, STAND, VELM, VWTHK ) 

END IF 
DIAB=DIA 
C 

C CHECK IF THE DIAMETER CALCULATED BY BALLISTIC SUBROUTINE IS LESS 
C THAN THAT CALCULATED BY FRAGMENTING SUBROUTINE. IF SO SET BALL TO 
C FALSE . 

C 

IF (DIAB.GT.DIABL) THEN 
BALL=. FALSE. 

DIA=DIAB 
GOTO 700 
ELSE 

BALL= . TRUE . 

DIA-DIABL 
GOTO 700 
ENDIF 
C 

C CALCULATE THE PENETRATION DIAMETER USING BOTH THE FRAGMENTING AND 
C WILKIN SUBROUTINES. THE DIAMETR CALCULATED BY FRAGMENTING IS USED 
C UNTIL THE VALUE DETERMINED BY WILKIN IS LESS. IT IS THEN NOT 
C NECESSARY TO CALL FRAGMENTING. 

C 

C 

ELSE 

IF(BRIST) THEN 

IF { PFUNC.EQ.l. ) THEN 

CALL BRISTOW (ANGR, C, DIA, EVWTHK, INITIAL, SHTHK, STAND, VELE) 
ELSE 

CALL REGRESS ( ANGR, DIA, ML I, SHTHK, STAND, VELM, VWTHK ) 

END IF 
DIAB=“DIA 
C 

CALL WILKIN (ANGR, DENS , DIA, EVWTHK, ITYPE, SHTHK, STAND, VELM, 
WILKC) 

DIAW*DIA 

C 

C CHECK IF THE VALUE DETERMINED BY WILKIN IS LESS THEN THAT 
C DETERMINED BY BRISTOW. IF SO SET BRIST TO FALSE. 

C 

IF (DIAW.LT.DIAB)THEN 
BRIST=. FALSE. 

DIA=DIAW 
GOTO 700 
ELSE 

BRIST=.TRUE. 

DIA=DIAB 
GOTO 700 


) THEN 

(ANGR, BHARD, C, DENS , DIA, VWTHK, FY, FSU, FTU, 
INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE). 

ANGR, BHARD , C, DENS , DIA, VWTHK, FY, FSU, FTU, 
INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 
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0190 


ENDIF 

0191 

C 


0192 


END IF 

0193 

c 


0194 


ENDIF 

0195 

c 


0196 

c 


0197 

c 

CALCULATE THE DIAMETER USING THE WILKIN SUBROUTINE. 

0198 

c 


0199 

500 

CALL WILKIN (ANGR, DENS, DIA, EVWTHK, ITYPE, SHTHK, STAND, VELM, WILKC) 

0200 

C 


0201 

c 

SET INITIAL TO FALSE 

0202 

c 


0203 

700 

INITIAL = .FALSE. 

0204 

C 


0205 

C 


0206 


RETURN 

0207 

C 


0208 


END 
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0001 c 

0002 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0003 C 

0004 SUBROUTINE BRISTOW (ANGR, C, DIA, EVWTHK, INITIAL, SHTHK, STAND, VELE) 

0005 C 

0006 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0007 C 

0008 C 

0009 C 

0010 C BRISTOW DETERMINES NUMBER OF PLATES PENETRATED. BASED ON 

0011 C "MULTIPLE -DAMAGE STUDY", BY G.T. BURCH, BOEING 1967, AIR FORCE 

0012 C ARMAMENT LABORATORY TECH REPORT AFATL-TR-67-11 6 . 

0013 C 

0014 C VALID FROM 3.6 TO 10.2 KM/SEC, AND FOR ALUMINUM PROJECTILES 

0015 C IMPACTING ALUMINUM PLATES AT NORMAL . 

0016 C 

0017 C 

0018 C VARIABLE LIST 

0019 C 

0020 C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

0021 C Cl = SPEED OF SOUND IN SHIELD MATERIAL, FT /SEC 

0022 C C = ARRAY CONTAINING VALUES OF THE SPEED OF SOUND FOR 

0023 C THE SHIELD AND VESSEL WALL MATERIALS ( FT/SEC ) 

0024 C CHI = INTERMEDIATE VARIABLE 

0025 C DIA = PROJECTILE DIAMETER, IN. 

0026 C DIAl = PREVIOUS DIAMETER 

0027 C DIA2 = CURRENT DIAMETER 

0028 C DT = INTERMEDIATE VARIABLE 

0029 C EVWTHK « EQUIVALENT VESSEL WALL THICKNESS, IN . 

0030 C FI = INTERMEDIATE VARIABLE 

0031 C F2 = 

0032 C F3 = " " 

0033 C I = ITERATION COUNTER 

0034 C INITIAL = LOGICAL PARAMETER USED TO DETERMINE IF CURRENT CALL 

0035 C IS INITIAL ONE 

0036 C NF = NUMBER OF PLATES PENETRATED BY THE FLIGHT PATH COMPONENT 

0037 C NN = NUMBER OF PLATES PENETRATED BY THE NORMAL COMPONENT 

0038 C PLP = # OF PLATES PENETRATED 

0039 C PLPl = PREVIOUS PLP 

0040 C PLP2 = CURRENT PLP 

0041 C SD = INTERMEDIATE VARIABLE 

0042 C SHTHK = SHIELD THICKNESS, IN . 

0043 C SIN3 = INTERMEDIATE VARIABLE 

0044 C SLOPE = SLOPE OF LINE THROUGH (DIAl, PLPl) & (DIA2,PLP2) 

0045 C SPF = NUMBER OF PLATES PENETRATED THAT ACCOUNTS FOR SPALLING 

0046 C STAND = SHIELD STAND-OFF (IN.) 

0047 C SWITCH = LOGICAL VARABLE USED TO DETERMINE IF THE CRITICAL 

0048 C DIAMETER IS TO BE ESTIMATED THROUGH LINEAR 

0049 C INTERPOLATION 

0050 C TID = INTERMEDIATE VARIABLE 

0051 C T2D = 

0052 C TEST = RATIO OF THE NUMBER OF PLATES PENETRATED TO THE 

0053 C SPALLING FACTOR 

0054 C VC “ 

0055 C VELE = VEL IN FT/SEC 

0056 C VHOLD = VELOCITY HOLDER 

0057 C 

0058 C 

0059 C 

0060 DIMENSION C(3) 

0061 C 

0062 LOGICAL INITIAL 


0063 .C 
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0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


REAL NF,NN 
C 

LOGICAL SWITCH 
C 

SAVE PLP1,PLP2,DIA1,DIA2 
C 
C 

C SINCE THIS METHOD DOES NOT SOLVE FOR THE DIAMETER THAT JUST 
C PENETRATES DIRECTLY AN ITERATIVE APPROACH IS TAKEN, INITIAL VALUES 
C ARE SET, AND USED TO APPROXIMATE THE CORRECT VALUE. THIS PROCESS 
C IS CONTINUED UNTIL THE ANSWER IS WITHIN TOLERANCES. 

C 

C 

C SET INITIAL VALUES 
C 

1=0 

SPF =0.85 
SWITCH=. FALSE. 

C 

C IF THIS IS THE INITIAL CALL SET INITIAL ELSE USE PREVIOUS VALUES 
C VALUES 
C 

IF (INITIAL) THEN 
DIA2=10 . 0 
END IF 
C 

C FOR VELOCITIES LESS THAN 11,800 FT/SEC SET THE VELOCITY EQUAL 
C TO 11,800 AND CALCULATE THE CRITICAL DIAMETER. USE THIS VALUE 
C TO ESTIMATE THE ACTUAL DIAMETER. SET THE LOGICAL VARIABLE SWITCH 

C TO TRUE AND SAVE THE VELOCITY AS VHOLD . 

C 

IF ( VELE .LT. 11800. ) THEN 
VHOLD=VELE 
VELE=11800 . 

SWITCH=.TRUE. 

END IF 
C 

C CALCULATE INTERMEDIATE VARIABLES THAT DO NOT NEED TO BE CALCULATED 
C FOR EACH DIAMETER 
C 

CHI=TAN (ANGR) -0.50 
SIN3=(SIN(ANGR) ) **3 
VC=VELE/C(1) 

C 

100 1 = 1+1 
C 

C IF THIS IS THE FIRST PREDICTION USE THE DIAMETER VALUE THAT WAS 
C CALCULATED TO PENETRATE FOR THE PREVIOUS CASE AS A STARTING POINT. 
C ELSE USE A LINEAR PREDICTION APPROACH BASED ON THE LAST TWO 
C PREDICTIONS. 

C 

IF ( I.EQ.l ) THEN 
C 

DIA=DIA2 
DIA2=0 .0 
PLP2=0 .0 
C 

ELSE 

C 

SLOPE= (PLP2-PLP1) / (DIA2-DIA1) 

DIA={ (SPF-PLPl) /SLOPE+DIAl) 

C 

C CHECK THAT DIA > 0.0 
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0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 
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D 180-30550-4 
c 

IF (DIA.LT.O .0) DIA=1.0E-10 
C 

C Check if dial = dia2^if so stop 
C 

IF ( DIA.EQ.DIA2 ) THEN 

WRITE ( 6,150 ) ANGR, VELE,DIA 

150 FORMAT (/ IX, * BRISTOW CANNOT CONVERGE BECAUSE OF FLAT *, 

1 'SLOPE (ANGLE, VEL,DIA) =',3E12.5 ) 

STOP 
END IF 
END IF 
C 

C CALCULATE # OF PLATES PENETRATED 
C 

SD=STAND/DIA 

T1D=SHTHK/DIA 

T2D=EVWTHK/DIA 

C 

F1=2.42*(T1D** (-1./3.) )+4.26*{TlD** (1./3.) ) -4.18 
C 

F2= (0 .5-1. 87*T1D) +(5.*T1D-1 . 6) * (CHI**3) +(1.7-12 . *T1D) *CHI 
C 

F3=0 .32* (TID** (5 . /6 . ) ) +0 . 48* (TID** (1 . /3 . ) ) *SIN3 
C 

NF=“ (Fl + 0 . 63*F2) * (VC** (-4./3 . ) ) * (SD** (-5, /12 . ) ) * (T2D** (-7 . /12 , ) ) 
C 

NN=F3* (T2D** (-1.) ) * (VC** (-4 . /3 . ) ) 

C 

C DETERMINE WHICH COMPONENT CONTROLS 
C 

IF ( NF.GT.NN ) THEN 
PLP=NF 
ELSE 

PLP=NN 
END IF 
C 

C RESET HOLDERS 
C 

DIA1=DIA2 

DIA2=DIA 

PLP1-PLP2 

PLP2=PLP 

C 

C CHECK IF PLP IS WITHIN TOLERANCE, IF NOT ITERATE 
C 

TEST = PLP/SPF 
C 
C 

IF ( TEST. LT. 0.9 9 .OR. TEST. GT. 1.01 ) GO TO 100 
C 

C IF SWITCH IS TRUE, ESTIMATE THE CRITICAL DIAMETER USING LINEAR 
C INTERPOLATION. THE TWO POINTS USED ARE THE ORIGIN AND THE VALUE 
C CALCULATED AT 11800 . 

C 

IF ( SWITCH ) THEN 
C 

D I A=D I A2 * VHOLD / 1 1 8 0 0 . 0 
SWITCH*. FALSE. 

DIA1*0 .0 
PLP1=0 . 0 
C 

END IF 
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0190 C 

0191 RETURN 

0192 C 

0193 C 

0194 END 
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0021 
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C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE WILKIN (ANGR, DENS , DIA, EVWTHK, ITYPE, SHTHK, STAND, VELM, 

WILKC ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C WILKIN DETERMINES THE DIAMETER THAT JUST PENETRATES THE VESSEL 
C WALL. IT IS BASED ON J.P.D. WILKINSON'S PAPER 'A PENETRATION 
C CRITERION FOR DOUBLED -WALLED STRUCTURE SUBJECT TO METEOROID IMPACT' 

C ,AIAA JOURNAL OCT 1969. 

C 

C THE MAJOR ASSUMPTION USED BY WILKINSON IS THAT THE PROJECTILE 
C VAPORIZES ON IMPACT 
C 
C 

C VARIABLE LIST 
C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

C CONST = MATERIAL CONSTANT DEFINED BY WILKINSON 

C Cl = INTERMEDIATE VARIABLE 

C DENS = ARRAY CONTAINING VALUES FOR DENSITY OF THE SHIELD & 

C VESSEL WALL MATERIALS 

C DIA = PROJECTILE DIAMETER (IN) 

C DIAM = PROJECTILE DIAMETER (CM ) 

C EVWTHK = EQUIVALENT VESSEL WALL THK. ( IN) 

C ITYPE = ANALYSIS TYPE 1=DEBRIS & METEOROIDS, 2=METEOROIDS 

C MASS = PROJECTILE MASS ( GRAMS ) 

C MB = INTERMEDIATE VARIABLE 

C MT = 

C PI == PI 

C PROJDEN = PROJECTILE DENSITY ( G/CC ) 

C RMI = UNIT MASS OF SHIELD (G/CM**2) 

C RM2 = UNIT MASS OF VESSEL WALL (G/CM**2) 

C SHDEN = SHIELD & VESSEL WALL DENISITY ( GRAMS/CC ) 

C SHTHK = SHIELD THK. (IN) 

C STAND = SHIELD STAND-OFF DISTANCE (IN) 

C STANDM = STAND IN CM. 

C VELM = VEL IN KM/SEC 

C VNORM = NORMAL COMPONENT OF THE VELEOCITY VECTOR, KM/SEC 

C VWDEN = VESSEL WALL DENSITY (LB/IN**3) 

C WILKC = ARRAY CONTAINING VALUES OF WILKINSON'S CONSTANT 

C FOR THE SHIELD & VESSEL WALL MATERIALS 

C 
C 
C 

DIMENSION DENS (3) , WILKC (3) 

C 

INTEGER*2 ITYPE 
C 

REAL MB, MT, MASS 
C 

C SET INITIAL VALUES 
C 

PI = 3.141592654 
C 

C SET PROJECTILE DENSITY IN G/CC 
C 

PROJDEN = DENS (3) *27 .705 
C 

C SET SHIELD AND VESSEL WALL DENSITY IN G/CC 
C 
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0064 SHDEN = DENS(l) * 27.705 

0065 VWDEN = DENS (2) * 27.705 

0066 C 

0067 C CONST IS A MATERIAL VARIABLE DEFINED IN THE PAPER & IS 

0068 C EQUAL TO .401 FOR 2219 AL 

0069 C 

0070 CONST = WILKC(2) 

0071 C 

0072 C DETERMINE SHIELD & VESSEL WALL MASS PER UNIT AREA 

0073 C 

0074 RMl = SHTHK * 2.54 * SHDEN 

0075 RM2 = EVWTHK * 2.54 * VWDEN 

0076 C 

0077 C CONVERT STAND TO CM 

0078 C 

0079 STANDM = STAND * 2.54 

0080 C 

0081 C CALCULATE THE NORMAL COMPONENT OF THE VELOCITY VECTOR 

0082 C 

0083 VNORM=VELM*COS (ANGR) 

0084 C 

0085 C DETERMINE CRITICAL PROJECTILE DIAMETER 

0086 C 

0087 MT = 1.44* (PI/6 . 0) ** (1 . /3 .) *C0NST*RM1*RM2*STANDM**2 .0 

0088 MB = PROJDEN** (2 . /3 . ) *VNORM 

0089 MASS = (MT/MB)**.75 

0090 DIAM = (6.0*MASS/(PI*PROJDEN))**(l./3.) 

0091 C 

0092 C CHECK IF APPROPRIATE EQ . WAS USED 

0093 C 

0094 Cl = RMl / ( PROJDEN * DIAM ) 

0095 IF (Cl .GT. 1.0 ) THEN 

0096 C 

0097 C WRONG EQN. USED, RECALC USING CORRECT EQN. 

0098 C 

0099 MASS= 1.44*CONST*RM2*(STANDM**2.)/VNORM 

0100 DIAM = (6. 0*MASS/ (PI*PROJDEN) ) ** (1 . /3. ) 

0101 END IF 

0102 C 

0103 C CONVERT DIAMETER TO IN 

0104 C 

0105 DIA = DIAM / 2.54 

0106 C 

0107 RETURN 

0108 C 

0109 END 
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C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE REGRESS ( ANGR, DIA, MLI , SHTHK, STAND, VELM, VWTHK ) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

c 

C Subroutine REGRESS determines the critical projectile diameter for 
C a two-plate structure impacted by aluminum spherical projectiles. It 
C was developed from test data obtained during the NASA contract 
C * Integrated Space Station Wall Design Guide and Penetration Control 
C Plan*. The data varied from 2 to 8 loti/ sec, 

C 

C 

C Variable List 
C 

C angr = impact angle measured from the normal, radians 
C dia = critical projectile diameter, in 
C dl3 = intermediate variable 

C high “ holder, last diameter to penetrate , in 
C ic = counter 

C low = holder, last diameter to not penetrate, in 
C Isd = intermediate variable 

C mli = logical variable indicating wether multi-layer insulation is 
C used 

C mt = intermediate variable 

C np = number of plates penetrated, excluding the shield 
C shthk. = shield thickness , in 

C stand = shield stand-off , in 

C switch = logical variable, used to determine if a penetrating 
C diameter has been determined 

C tt = intermediate variable 

C tl3 = 

C vc2 = ” 

C velm = impact velocity, km/sec 
C vwthk = vessel wall thickness , in 
C 
C 
C 

INTEGER IC 
C 

REAL LOW, LSD,MT,NP 
C 

LOGICAL MLI, SWITCH 
C 

C Intialize Variables 
C 

IC=0 
LOW=0 . 0 
HIGH=5 .0 
SWITCH=.TRUE. 

C 

C Set MLI constant 
C 

IF ( MLI ) THEN 
MT=-14.0 
ELSE 

MT=0 . 0 
END IF 
C 

C Since the equation does not solve for the critical projectile 
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C diameter directly, use a binary search technique to determine it. 

C First determine a diameter that penetrates then narrow in on the 
C actual diameter. 

C 

100 CONTINUE 
C 

IC=IC+1 

c 

IF ( SWITCH ) THEN 
HIGH=HIGH*2.0 
END IF 
C 

DIA=(HIGH+LOW) /2.0 
C 

C Check that the diameter is less then 50 cm , if not stop 
C 

IF ( DIA.GT.50.0 ) THEN 

WRITE ( 6, * (’ * ERROR Diameter greater than 50 cm in * 

1 * * subroutine REGRESS * * ) * ) 

STOP 
END IF 
C 

C Calculate the intermediate variables 
C 

D13=DIA** (1 . /3 . ) 

LSD=LOG10 (STAND) /DIA 
T13*SHTHK** (1 . /3 . ) 

TT=TAN(ANGR) 

VC2=VELM* (COS (ANGR) **2) 

C 

C Calculate the number of plates penetrated 
C 

NP=1 . 52-6 . 18*T13-18 . 8*VWTHK-0 . 146*LSD+MT*SHTHK+10 . 8*D13-0 . 287*VC2 
1 -0.713*TT 

C 

C Check for convergance 
C 

IF ( IC.GT.lOO ) THEN 

WRITE ( 6,*(*’ ERROR REGRESS failed to converge after 

1 * ' 100 cycles ’ * ) * ) 

STOP 
END IF 
C 

C Has a diameter that penetrates been found, if not reset holders and 
C try again 
C 

IF ( SWITCH ) THEN 

IF ( NP.GT.l ) THEN 
SWITCH^. FALSE. 

HIGH=DIA 
GO TO 100 
END IF 
END IF 
C 

C Does the diameter yeild an acceptable result, if not rest holders 
C and try again 
C 

IF ( NP.LT. 0.999 ) THEN 
LOW=DIA 
GO TO 100 

ELSE IF ( NP.GT.l. 001 ) THEN 
HIGH=DIA 
GO TO 100 


E - 33 



D 180-30550-4 


0127 

0128 

C 

END IF 

0129 

C 

Finished 

0130 

0131 

C 

RETURN 

0132 

0133 

C 

END 
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e D180-305504 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE BALLIST ( ANGR, BHARD, C, DENS , DIA, VWTHK, FY, FSU, FTU, 

1 INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C BALLISTIC DETERMINES THE DIAMETER THAT JUST PENETRATES. IT ULTILZES 
C THE BALLISTIC PORTION OF BOEING’S HYPERVELOCITY CODE PEN4 . 

C 

C 

C VARIABLE LIST 
C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL, RADIANS 

C BHARD = ARRAY CONTAINING THE VALUES OF THE BRINNEL HARDNESS FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C C = ARRAY CONTAINING VALUES FOR THE SPEED OF SOUND FOR THE 
C SHIELD AND VESSEL WALL MATERIALS (FT /SEC) 

C DEN * PROJECTILE DENSITY (LB/CFT) 

C DENS = ARRAY CONTAINING VALUES FOR THE DENSITY FOR THE 
C SHIELD AND VESSEL WALL MATERIALS (LB/IN**3) 

C DIA = SPHERICAL PROJECTILE DIAMETER (IN) 

C DIAl = PREVIOUS DIAMETER THAT PENETRATED (IN) 

C DIA2 = DIAMETER THAT PENETRATED TWO ITERATIONS PREVIOUSLY (IN) 

C EVWTHK = EQUIVALENT VESSEL WALL THICKNESS, IN. 

C FY = ARRAY CONTAINING THE VALUES OF THE YIELD STRENGTH FOR THE 
C SHIELD & VESSEL WALL MATERIALS 

C FSU = ARRAY CONTAINING VALUES OF THE ULTIMATE SHEAR STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSI) 

C FTU = ARRAY CONTAINING VALUES OF THE ULTIMATE TENSILE STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSI) 

C I = COUNTER 

C INITIAL = LOGICAL PARAMETER USED TO DETRMINE IF CURRENT CALL 
C IS INITIAL ONE. 

C MASS = PROJECTILE MASS, LBS 
C N = INCREMENT MULIPLIER 

C PDENS = DENS ARRAY CONVERTED TO SLUGS/FT**3 
C PFY = FY ARRAY CONVERTED TO PSF 
C PFSU = FSU ARRAY CONVERTED TO PSF 

C PFTU = FTU ARRAY CONVERTED TO PSF 

C PI = LAST MASS GUESS TO NOT PENETRATE 

C P2 = LAST MASS GUESS TO PENETRATE 

C PEN * TRUE OR FALSE 

C PI = 3.14 

C PMINCR = INITIAL MASS GUESS INCREMENT 
C RATIO = P2 / PI 

C SHATTER = LOGICAL PARAMETER USED TO DETERMINE IF PEN4 BALLISTIC 
C LIMITS HAVE BEEN EXCEEDED 

C SHPV = ARRAY CONTAING VALUES OF THE SHOCK PROJECTILE VELOCITY 
C FOR THE SHIELD AND VESSEL WALL MATERIALS, ( UNITLESS ) 

C SHTHK = SHIELD THICKNESS , IN . 

C SPACE = ARRAY CONTAINING THE SHIELD SPACING , FT . 

C STAND = SHIELD STAND-OFF, IN . 

C TARMAT = ARRAY CONTAINING MATERIAL PROPERTY POINTERS 
C THETA = IMPACT ANGLE (RAD) , MEASURED FROM THE NORMAL 

C THICK = SHIELD & VESSEL WALL THICKNESS , FT . 

C VELE = COLLISION VELOCITY, FT/SEC 

C VELl = VEL FOR DIAl 

C VEL2 = VEL FOR DIA2 

C VO IMPACT VELOCITY (FT/SEC) 

C VR2 = RESIDUAL VELOCITY AFTER VESSEL WALL, FT/SEC 
C 
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0065 

C 


0066 


DIMENSION SHARD (3) ,C(3) ,DENS (3) ,FY(3) , FSU (3) , FTU (3) ,PDENS (3) , 

0067 


PFY(3) ,PFSU(3) ,PFTU(3) , SHPV(3) , SPACE (2) ,THICK(3) , 

0068 


TARMAT ( 3 ) 

0069 

C 


0070 


INTEGER PROJMAT, TARMAT 

0071 

C 


0072 


LOGICAL PEN, INITIAL, SHATTER 

0073 

C 


0074 


REAL MASS 

0075 

C 


0076 


SAVE DIA1,DIA2,P2,VEL1,VEL2 

0077 

C 


0078 

C 


0079 

C 

SET INITIAL VALUES 

0080 

C 


0081 


1 = 0 

0082 


N = 0 

0083 


PEN = .FALSE. 

0084 


PMINCR = l.OE-04 

0085 


PI = 3.1415926536 

0086 


PI = l.OE-06 

0087 

c 


0088 

c 

CONVERT VARIABLES TO PEN4 FORMAT AND UNITS 

0089 

c 


0090 


DO 50 1=1,3 

0091 

c 


0092 

c 

CONVERT DENS TO SLUGS/FT**3 

0093 

c 


0094 


PDENS (I)=DENS (I) *1728. /32. 2 

0095 

c 


0096 

c 

CONVERT FSU AND FTU TO PSF 

0097 

c 


0098 


PFY(I)=FY(I) *144. 

0099 


PFTU(I)=FTU(I) *144. 

0100 


PFSU(I)=FSU(I) *144. 

0101 

c 


0102 

50 

CONTINUE 

0103 

c 


0104 


PROJMAT - 3 

0105 


SPACE (1) = STAND/ 12.0 

0106 


SPACE (2) =0.0 

0107 


TARMAT (1) - 1 

0108 


TARMAT (2) - 2 

0109 


TARMAT ( 3 ) =0 

0110 


THETA = ANGR 

0111 


THICK (1) = SHTHK/12.0 

0112 


THICK (2) = VWTHK/12.0 

0113 


THICK (3) =0.0 

0114 


VO = VELE 

0115 

c 


0116 

c 

PEN4 DOES NOT SOLVE FOR THE CRITICAL PROJECTILE DIAMETER DIRECTLY 

0117 

c 

THEREFORE AN ITERATIVE APPROACH IS TAKEN. PEN4 ONLY RETURNS 

0118 

c 

A LOGICAL PARAMETER INDICATING IF PENETRATION HAS OCCURED . 

0119 

c 


0120 

c 


0121 

c 

FOR INITIAL CASE SET P2 > 0.0 

0122 

c 


0123 


IF (INITIAL) THEN 

0124 


P2 = l.OE-04 

0125 


ENDIF 

0126 

c 
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0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 
0189 


D180-30550-4 


C IF SHATTER HAS OCCURED NO NEED TO CALL PEN4,USE LINEAR APPROX. 
C 

IF (SHATTER) GO TO 500 
C 

C DETERMINE INITIAL MASS THAT PENETRATES 
C 

100 MASS = P2 + N * PMINCR 
C 

NC = NC + 1 


C 


C 

C 

c 

c 


c 


c 

c 

200 

C 

C 

C 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


CALL OPEN4 (PEN, MASS, THETA, SHATTER, VO , PDENS , BHARD, PROJMAT, SHPV, 
C, SPACE, TARMAT, THICK, PFY, *500) 

IF ( PEN ) THEN 

IF PENETRATION TRY WITH MASS BETWEEN Pi & P2 

PEN = .FALSE. 

P2 = MASS 

MASS = ( PI + P2 ) / 2.0 
NC = NC + 1 

CALL OPEN4 (PEN, MASS , THETA, SHATTER, VO , PDENS , BHARD, PROJMAT, 
SHPV,C, SPACE, TARMAT, THICK, PFY, *500) 


IF ( PEN ) THEN 

IF PENETRATION, SET P2 = MASS & CHECK RATIO 

PEN = .FALSE. 

P2 = MASS 
RATIO = P2 /PI 

IF ( RATIO .LT. .995 .OR. RATIO . GT . 1.005 ) THEN 

IF TRUE TRY AGAIN BETWEEN Pi & P2 

MASS - ( PI + P2 ) / 2.0 
NC = NC + 1 

CALL OPEN4 (PEN, MASS, THETA, SHATTER, VO , PDENS, BHARD, 
PROJMAT, SHPV, C, SPACE, TARMAT, THICK, PFY, 
*500) 

GO TO 200 
ELSE 

IF FALSE, MASS IS WITHIN RANGE SO CONTINUE 

GO TO 300 
END IF 

ELSE 

IF FALSE, SET PI =* MASS AND CHECK RATIO 

PI = MASS 
RATIO = P2 / PI 

IF ( RATIO .LT. .995 .OR. RATIO . GT . 1.005 ) THEN 

IF TRUE, TRY AGAIN BETWEEN Pi & P2 

MASS = ( PI + P2 ) / 2.0 
NC = NC + 1 

CALL OPEN4 (PEN, MASS , THETA, SHATTER, VO , PDENS , BHARD , 
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0190 . PROJMAT,SHPV,C, SPACE, TARMAT, THICK, PFY, 

0191 . *500) 

0192 GO TO 200 

0193 ELSE 

0194 C 

0195 C IF FALSE, MASS IS WITHIN RANGE SO CONTINUE 

0196 C 

0197 GO TO 300 

0198 END IF 

0199 ENDIF 

0200 ELSE 

0201 C 

0202 C IF FALSE INCREASE INCREMENT & TRY AGAIN 

0203 C 

0204 PI = MASS 

0205 1=1+1 

0206 N = 2 ** I 

0207 GO TO 100 

0208 END IF 

0209 C 

0210 P2=MASS 

0211 C 

0212 C CALCULATE DIAMETER 

0213 C 

0214 C 

0215 C 

0216 300 DEN = DENS (3) *1728 . 0 

0217 .C 

0218 DIA = ( (MASS*6 .0) / (PI*DEN) )** (1 .0/3.0) 

0219 C 

0220 C CONVERT TO IN. 

0221 C 

0222 DIA = DIA * 12.0 

0223 C 

0224 C 


0225 C 

0226 C RESET HOLDERS 

0227 C 

0228 DIA2=DIA1 

0229 DIA1=DIA 

0230 VEL2=VEL1 

0231 VEL1=VELE 

0232 C 

0233 C 

0234 RETURN 

0235 C 

0236 C SINCE SHATTER HAS OCCURED NO NEED TO CALL PEN4 USE LINEAR APPROXL 

0237 C 

0238 500 SLOPE=(DIAl-DIA2) / (VEL1-VEL2) 

0239 DIA=DIA2+SLOPE* (VELE-VEL2) 

0240 RETURN 

0241 C 

0242 END 


E - 38 



D180-30550-4 


0001 c 
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0004 

0005 C 

0006 C 

0007 
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0020 
0021 
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SUBROUTINE OPEN4 (Penetration, Mass , Theta , SHATTER, VO , 

1 Density, Hardness, Pro jMat, ShockPro jVel, SoundVei, 

2 Spacing, TarMat, Thick, YieldStrength, *) 

This version of pen4 is strictly for use in the sub-shatter velocity 
regime. It is a modified version of spinl4, created on 6/21/85, 

LOGICAL Penetration, SHATTER 

REAL Mass , LAMBDA, NR, NF, NH, J, NR2 , NHT, LastPK, MR 

INTEGER P ro jMat , TarMat , Exponent , TopCount , Bott omCount 1 , BottomCount 2 
DIMENSION Thick (3) , TarMat (3) , Spacing (2) , 

: Density (3) , Yields trength (3) , SoundVei (3) , 

: ShockPro jVel (3) , Hardness (3) , Epsil (2 ) , 

: NR (3) ,NR2 (3) ,RF (3) ,Flagit (3) 

Density in Slugs /CubicFoot 
YieldStrength in Lbs/SquareFoot 
SoundVei in Feet /Second 
Hardness is Brinell Scale 
DATA Epsil, Gamma/5, 71, 5.71, 90 .0/ 

DATA FI, F2/4. 0,1.0/ 

DATA Ef fectiveThicknessRatio/ . 6/ 

DATA A,B/2.0,3.125E-04/ 

PI=3. 141592653589793 
Small = lE-36 

RecipSqrt2PI*l . /SQRT (2 . *PI) 

★ ★★★★★★★★★★★★★Calculate Radius of Projectile sphere****"^******** 
RP=(Mass*3./ 

1 (Density (Pro jMat) *32.2*4.*PI) ) **(l./3.) 

Diam = RP * 2. 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★*★★★★ 


★★★★★★★★★★★ ^Compute Res idualVel * ★★★★*************^************** 
VDEL= ( V0**2*l . 33*RP**2*Density (Pro jMat) - 

1 Fl*YieldStrength (TarMat (1) ) *THICK(1) **2/COS (THETA) **2 

2 *A*EXP (-B*V0) ) 

2 /( 1.33*RP**2*Density(ProjMat)+F2*RP*THICK(l) * 

3 Density (TarMat (1) ) /COS (THETA) ) 

VR=SQRT (AMAXl (VDEL, 0 . ) ) 

**************************************************************** 

*********** *crater ing ^50*************************************** 
V50=SQRT ( (Thick (1) *Ef fectiveThicknessRatio /COS (Theta) / 

1 (0 .281*Diam* (Density (Pro jMat ) /Density (TarMat (1) ) ) ** ( 1 . /3 . ) ) ) 

2 **(!./ .31) /Density (Pro jMat) * (2 . *YieldStrength (TarMat (1) ) ) ) 
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★*★★★★★★★*★**★**★★*★*************** 


★★★★★★★★★★★★★★IF No Penetration Report Result and Exit ********** 
IF (V0.LT.V50) THEN 

Penetration = .FALSE. 

RETURN 

ELSE IF (Thick(2) .EQ.O .0) THEN 
Penetration = .TRUE. 

RETURN 

END IF 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★*★*★**★**************************** 


★★★★★★★★★★★★★★Mass Loss Regime Decision 




ToverD = Thick (1) /Diam 

FTHETA=-2 . 433E-4 - 1 . 643E-2*COS (THETA) +3 . 201*COS (THETA) **2- 
2 . 184*COS (THETA) **3 
IF (ToverD. LT. .40) THEN 


Vf = 4100. 
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0064 


ELSE 


0065 



Vf = 4986 . *ToverD**.21 

0066 


END 

IF 

0067 


IF (VO .LT.VF+4000 . ) THEN 

0068 


IF 

(VO .LT.Vf ) THEN 

0069 



CALL MassErr (VO, Mass, Hardness (Pro jMat ) , 

0070 


: 

Density (Pro jMat) , Density (TarMat ( 1) ) , Thick (1) , Diam, MR) 

0071 



ELSE 

0072 



CALL Fract (MR, VO , Vf , FTheta, Mass , ToverD) 

0073 



END IF 

0074 



CALL LarMR (VR, MR, V50, Thick (2) , Ef feet iveThickNessRatio , Theta, 

0075 


: 

Diam, Density (Pro jMat ) , Density (TarMat (2 ) ) , 

0076 



YieldStrength (TarMat (1) ) , Penetration) 

0077 


ELSE 


0078 

C 

★★★★★★★★★★The rest of this subroutine contains the evaluation****** 

0079 

C 

*★★***★★★★* of shatter regime multiple cratering penetration******* 

0080 

C 

######Shatter regime removed for independent use of ballistic###### 

0081 

C 

################And fracture regime evaluation##################### 

0082 


SHATTER = .TRUE. 

0083 



RETURN 1 

0084 


END 

IF 

0085 


RETURN 

0086 


END 
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SUBROUTINE Fract (MR, VO , Vf , FTheta,MPro j , ToverD) 

REAL MR,MProj 

IF (VO .GT.Vf+2000 . ) THEN 

MR = MProj*FTheta* . 16 
ELSE IF (ToverD. GT. .25) THEN 
MR = MProj*FTheta*,25 

ELSE 

MR = MProj*FTheta* . 667 

END IF 


0011 

0012 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0001 
0002 

0003 

0004 

0005 

0006 

0007 

0008 C 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 


RETURN 

END 

SUBROUTINE La rMR (VR, MR, V50 , Thickness , 

: Ef fectiveThicknessRatio, Theta, Diam, Pro jDensity, 

: TargetDensity, TargetYieldStrength, Penetration) 

REAL MR 

LOGICAL Penetration 

V50=SQRT( (Thickness*Ef fectiveThicknessRatio/COS (Theta) / 

1 (0 . 281*Diam* (Pro jDensity /TargetDensity) **. 33333) ) 

2 **(!./ .31) /Pro jDensity* (2 . *TargetYieldStrength) ) 

IF (VR.LT.V50) THEN 

Penetration = .FALSE. 

ELSE 

Penetration = .TRUE. 

END IF 
RETURN 
END 

SUBROUTINE MassEr r ( VI , MFCl , BHNC, RhoP , RhoT , Thick , Diam, MR) 

REAL MR, MSI, MFCl 
RhoC = RhoP*. 01873 
RhoS = RhoT*. 01873 
T = Thick*12 . 

DFCl = Diam*12 
DFCl = SORT (4*AC/PI) 

UFC=SQRT (2680*BHNC/RHOC) 

VP=V1/UFC 

AC1=PI*DFC1**2/ (4*COS (THETA) ) 

MSl=RHOS*T*ACl 

MR=MFCl+0 .5*MS1*L0G(2 .74/ (1+VP**2) ) 

MR = AMINl (MR,MFC1) 

RETURN 

END 
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c D 180-30550-4 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE SINGLE ( ANGR, DIA, VELE, VWTHK, DENS , FTU ) 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C single determines the critical projectile diameter for single plate 
C configurations. It is based on the Schmidt -Holsapple crater volume 
C equation. The eqpaation was solved for the critical diameter as a 
C function of the plate and projectile properties in english units. 

C It assumes that a hemispherical crater depth equal to 70 percent of 
C the plate thickness causes failure. This is a attempt to account for 
C spall and was reccomended by Mike Bjorkman of the Boeing SHock Physics 
C group . 

C 

C 

C Ref: *On Scaling of the Crater Dimensions 2. Impact Processes*, 

C K.A, Holsapple & R.M. Schmidt, JGeophy Res, v87,nb3,10 March 1982, 

C pl849-70 

C 
C 

C Variable List 
C 

C angr = impact angle measured from the normal, radians 
C dia = critical projectile diameter, in 
C dr = intermediate variable 

C fr - 

C vele = relative velocity of the projectile, ft/sec 
C vwthk = vessel wall thickness, in 
C 

C Array list 
C 

C dens = density, lb/in**3 

C 1- shield 

C 2- vessel wall 

C 3- projectile 

C ftu = ultimate tensile strength, psi 

C 1- shield 

C 2- vessel wall 

C 3- projectile 

C 
C 

DIMENSION DENS (3) , FTU (3) 

C 

DR= (DENS (3) /DENS (2) ) ** (-0 . 159) 

V2= (VELE*COS (ANGR) ) **2 
FR=(2 . 6833*FTU(2) /DENS (3) /V2) **0.236 
C 

DIA-1 . 442*DR*FR*VWTHK 
C 

RETURN 

C 

END 
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c D 180-30550-4 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE PEN4 ( ANGR, BHARD^ C, DENS , DIA, VWTHK, FY, FSU^ FTU, 

1 INITIAL, SHATTER, SHPV, SHTHK, STAND, VELE ) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C PEN4 DETERMINES THE DIAMETER THAT JUST PENETRATES. IT ULTILZES 
C THE UPDATED BOEING'S HYPERVELOCITY CODE PEN4 VERSION 10. 

C 

C 

C VARIABLE LIST 
C 

C ANGR = IMPACT ANGLE MEASURED FROM THE NORMAL , RADIANS 

C BHARD = ARRAY CONTAINING THE VALUES OF THE BRINNEL HARDNESS FOR 

C THE SHIELD & VESSEL WALL MATERIALS 

C C = ARRAY CONTAINING VALUES FOR THE SPEED OF SOUND FOR THE 
C SHIELD AND VESSEL WALL MATERIALS (FT/SEC) 

C DEN = PROJECTILE DENSITY (LB/CFT) 

C DENS =* ARRAY CONTAINING VALUES FOR THE DENSITY FOR THE 
C SHIELD AND VESSEL WALL MATERIALS {LB/ IN* *3) 

C DIA = SPHERICAL PROJECTILE DIAMETER (IN) 

C DIAl = PREVIOUS DIAMETER THAT PENETRATED (IN) 

C DIA2 = DIAMETER THAT PENETRATED TWO ITERATIONS PREVIOUSLY (IN) 

C EVWTHK =« EQUIVALENT VESSEL WALL THICKNESS , IN. 

C FY = ARRAY CONTAINING THE VALUES OF THE YIELD STRENGTH FOR THE 
C SHIELD & VESSEL WALL MATERIALS 

C FSU = ARRAY CONTAINING VALUES OF THE ULTIMATE SHEAR STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSI) 

C FTU = ARRAY CONTAINING VALUES OF THE ULTIMATE TENSILE STRENGTH 
C FOR THE SHIELD AND VESSEL WALL MATERIALS (PSI) 

C I = COUNTER 

C INITIAL = LOGICAL PARAMETER USED TO DETRMINE IF CURRENT CALL 
C IS INITIAL ONE. 

C MASS =. PROJECTILE MASS , LBS 
C N * INCREMENT MULIPLIER 

C PI = LAST MASS GUESS TO NOT PENETRATE 

C P2 = LAST MASS GUESS TO PENETRATE 

C PEN = TRUE OR FALSE 

C PI = 3.14 

C PMINCR = INITIAL MASS GUESS INCREMENT 

C RATIO = P2 / PI 

C SHATTER = LOGICAL PARAMETER USED TO DETERMINE IF PEN4 BALLISTIC 
C LIMITS HAVE BEEN EXCEEDED 

C SHPV = ARRAY CONTAING VALUES OF THE SHOCK PROJECTILE VELOCITY 
C FOR THE SHIELD AND VESSEL WALL MATERIALS , ( UNITLESS ) 

C SHTHK = SHIELD THICKNESS , IN. 

C SPACE = ARRAY CONTAINING THE SHIELD SPACING , FT . 

C STAND = SHIELD STAND-OFF , IN. 

C TARMAT == ARRAY CONTAINING MATERIAL PROPERTY POINTERS 
C THETA = IMPACT ANGLE (DEG) , MEASURED FROM THE NORMAL 

C THICK = SHIELD & VESSEL WALL THICKNESS , FT. 

C VELE = COLLISION VELOCITY , FT/SEC 
C VELl = VEL FOR DIAl 

C VEL2 = VEL FOR DIA2 

C VO = IMPACT VELOCITY (FT/SEC) 

C VR2 = RESIDUAL VELOCITY AFTER VESSEL WALL , FT/SEC 
C 
C 
C 

DIMENSION BHARD (3) ,C{3) , DENS (3) ,FY(3) ,FSU(3) ,FTU(3) ,PDENS(3) , 
PFY(3) ,PFSU(3) ,PFTU(3) , SHPV (3) , SPACE (2) , THICK (3) , 
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TARMAT ( 3 ) 

C 

INTEGER PROJMAT^ TARMAT 
C 

LOGICAL PEN, INITIAL, SHATTER 
C 

REAL MASS 
C 

SAVE DIA1,DIA2,P2, VELl, VEL2 
C 
C 

C SET INITIAL VALUES 
C 

I =“ 0 
N = 0 

PEN = .FALSE. 

PMINCR = l.OE-04 
PI = 3.1415926536 
PI = l.OE-06 
C 

C CONVERT VARIABLES TO PEN4 FORMAT AND UNITS 

C 

C 

PROJMAT-2 

SPACE(l) = STAND/12.0 
SPACE (2) * 0.0 
TARMAT ( 1 ) =1 
TARMAT (2) = 2 
TARMAT (3) = 0 
THETA == ANGR*180 . 0/PI 
THICK (1) = SHTHK/12.0 
THICK (2) = VWTHK/12.0 
THICK (3) =0.0 
C 

C PEN4 DOES NOT SOLVE FOR THE CRITICAL PROJECTILE DIAMETER DIRECTLY 
C THEREFORE AN ITERATIVE APPROACH IS TAKEN. PEN4 ONLY RETURNS 
C A LOGICAL PARAMETER INDICATING IF PENETRATION HAS OCCURED . 

C 

C 

C FOR INITIAL CASE SET P2 > 0 . 0 
C 

IF (INITIAL) THEN 
P2 = l.OE-04 
END IF 
C 

C IF SHATTER HAS OCCURED NO NEED TO CALL PEN4 , USE LINEAR APPROX. 

C 

C 

C DETERMINE INITIAL MASS THAT PENETRATES 
C 

100 MASS = P2 + N * PMINCR 
C 

NC = NC + 1 
C 

CALL NPEN4 ( VELE, MASS, THETA, THICK, SPACE, PEN, SHATTER, PRO JMAT, 

1 DENS,FTU,C ) 

C 

IF ( PEN ) THEN 
C 

C IF PENETRATION TRY WITH MASS BETWEEN PI & P2 
C 

PEN = .FALSE. 

P2 = MASS 
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MASS = ( PI + P2 ) / 2.0 

0128 

C 


0129 


NC = NC + 1 

0130 


CALL NPEN4 ( VELE , MASS , THETA, THICK, SPACE, PEN, SHATTER, PROJMAT 

0131 


1 DENS,FTU,C ) 

0132 

C 


0133 

C 


0134 

200 

IF ( PEN ) THEN 

0135 

C 


0136 

C 

IF PENETRATION , SET P2 = MASS & CHECK RATIO 

0137 

C 


0138 


PEN = .FALSE. 

0139 


P2 = MASS 

0140 


RATIO = P2 /PI 

0141 


IF ( RATIO .LT. .995 .OR. RATIO .GT. 1.005 ) THEN 

0142 

C 


0143 

c 

IF TRUE TRY AGAIN BETWEEN PI & P2 

0144 

c 


0145 


MASS = ( PI + P2 ) / 2.0 

0146 


NC = NC + 1 

0147 


CALL NPEN4 (VELE, MASS, THETA, THICK, SPACE, PEN, SHATTER, 

0148 


1 PROJMAT,DENS,FTU,C ) 

0149 


GO TO 200 

0150 


ELSE 

0151 

c 


0152 

c 

IF FALSE , MASS IS WITHIN RANGE SO CONTINUE 

0153 

c 


0154 


GO TO 300 

0155 


END IF 

0156 

c 


0157 


ELSE 

0158 

c 


0159 

c 

IF FALSE , SET PI = MASS AND CHECK RATIO 

0160 

c 


0161 


PI = MASS 

0162 


RATIO = P2 / PI 

0163 


IF ( RATIO .LT. .995 .OR. RATIO .GT. 1.005 ) THEN 

0164 

c 


0165 

c 

IF TRUE , TRY AGAIN BETWEEN PI S P2 

0166 

c 


0167 


MASS = ( PI + P2 ) / 2.0 

0168 


NC = NC + 1 

0169 


CALL NPEN4 (VELE, MASS, THETA, THICK, SPACE, PEN, SHATTER, 

0170 


1 PROJMAT,DENS,FTU,C) 

0171 


GO TO 200 

0172 


ELSE 

0173 

c 


0174 

c 

IF FALSE , MASS IS WITHIN RANGE SO CONTINUE 

0175 

c 


0176 


GO TO 300 

0177 


END IF 

0178 


ENDIF 

0179 


ELSE 

0180 

c 


0181 

c 

IF FALSE INCREASE INCREMENT & TRY AGAIN 

0182 

c 


0183 


PI = MASS 

0184 


1 = 1 + 1 

0185 


N = 2 ** I 

0186 


GO TO 100 

0187 


END IF 

0188 

c 


0189 


P2=MASS 
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C 

C 

C 

C 

C 

300 

C 

C 

C 

C 

C 

C 

C 

C 

C 


CALCULATE DIAMETER 

DEN = DENS (3) *1728.0 

DIA = ( (MASS*6.0) / (PI*DEN) )** (1.0/3. 0) 
CONVERT TO IN. 

DIA =* DIA *12.0 

RESET HOLDERS 

DIA2=DIA1 

DIA1=DIA 

VEL2=VEL1 

VEL1==VELE 


C 

C 

C 


RETURN 

END 
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c 0180-30550-4 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


SUBROUTINE NPEN4 (Vil, MProj , Thetal, Thickl, Space, Pennon, 
: Shater, PrMatl, Dense 1, YStrnl, SoundV) 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

c 

C PrMat Integer Projectile Material 1: Steel, 2:Alumimain , 3 : Ice 


CHARACTER Shape *3 
LOGICAL Pennon, Shater 
INTEGER Maxk(5) 

INTEGER PrMat, PrMatl, TarMat (10) ,TMatSp(10) , Plate, Bin, NBin, I 
REAL RF(5) ,RC(5) 

REAL NF, J,MR,MProj,LastSp,LRM,FrMas3 (5) 

REAL Diam, Vi, Vr, ViLRM, VrLRM, Epsil, Gamma, Vil , Pi, Theta, SumSp 
REAL A, B, D, R, X, Y, ToverD, Rh, PlateM, FTheta, AllMas, Vc, DelJ, DelJ2 
REAL P, Ef fP, Pet , Pgrady, Thetal, AvgMas, Rp, FI , Vf 
REAL Thick(lO) , Space (9) ,Thickl (10) , 

PDense (3) , PYStrn (3) ,PSondV (3) , FrTuff (3) , 

Dense (10) , YStren (10) , SoundV (10) 

REAL Densel (10) , YStrnl (10) 

REAL ViX,MrMax,MPro jX 
DOUBLE PRECISION Intact , HoArea 
DOUBLE PRECISION SumPr(5) 

DOUBLE PRECISION Nr , Per , Lambda, SigSq, Sigma, Pk, As , Ac 


C 


COMMON /Prob/Nr (5) , Per (5) , Lambda (5) , SigSq (5) , Sigma (5) 
COMMON /Crater/As, Ac (5) , P (5) 

Steel Aluminum Ice 


DATA PDense/ 
DATA PYStrn/ 
DATA PSondV/ 
DATA FrTuff/ 


15.11 , 5.39 , 1.94/ 

8.35E+07 , 5485000., 0.0/ 

14960. , 17569., 0.0/ 

36. , 39., 39./ 


C PrMat Projectile Material 1: Steel, 2: Aluminum , 3 : Ice 

C Calculation units 


c 

Dense 

in Slugs/CubicFoot 

Density 

c 

YStren 

in Lbs/SquareFoot 

Uniaxial Ultimate Stress 

c 

SoundV 

in Feet/Second 

Speed of Sound 

c 

Theta 

in Radians 

Impact Angle 

c 

FrTuff 

in MegaPascals Meter^ 

.5 Fracture Toughness 

c 

Input units 


c 

Densel 

input in Lbs/CubicInch 

c 

YStrnl 

input in PSI 


c 

SoundV 

input in Feet/Sec 


c 

Vil 

Feet/ Sec 

Impact Velocity 

c 

MPro j 

Pounds 

Projectile Mass 

c 

Thetal 

Degrees 

Striking Angle 

c 

Thick 

Feet 

Target Plate Thickness 

c 

Space 

Feet 

Spacing Between Target Plates 

c 

Outputs 



c 

Pennon 

Logical 

Penetration Flag 

c 

Shater 

Logical 

Fragment Shatter Flag 


DATA Gamma / 1 . 5 7 0 8 / 

DATA FI/ 4.0/ 

DATA NBin/ 5/ 

DATA TarMat/1,2,3, 4, 5, 6,7, 8, 9, 10/ 
DATA TMatSp/2,2,2,2,2,2,2,2,2,2/ 
DO 10 Plate=l,10 
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10 


C 


C 

c 


c 

c 


c 


c 

c 


c 

c 


c 

c 

c 


0180 - 30550 ^ 

Thick (Plate) =Thickl (Plate) 

Dense (Plate) =Densel (Plate) / 32. 2*1728, 

YStren (Plate) =YStrnl (Plate) *144 . 

CONTINUE 

Theta = Thetal/57.3 
PrMat = PrMatl 
END DO 
Vi=Vil 

PI=3. 141592653589793 
Shater FALSE. 

*★★★****★★* ★★★Calculate Radius of Projectile sphere************* 
RP=(MProj*3./ (PDense (PrMat) *32 . 2*4 . *PI) ) ** ( 1 . /3 . ) 

Diam = RP * 2 . 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

DO 2040 Plate=l, 10 

IF ( .NOT. Shater) THEN 

*** This option is for single penetrators************************* 
**Compute Residual Velocity 

Call ResVel 

(Vr^ Vi, RP^ PDense (PrMat) , Dense (TarMat (Plate) ) , 

Thick (Plate) , Theta, PrMat , TMatSp (Plate) ) 

★★★★★★★★★★★★★★XF No Penetration Report Result and Exit********** 

IF (Vr.EQ.O.) THEN 
Pennon = .FALSE. 

RETURN 

ELSE IF (Thick(Plate+l) .EQ.O.O.OR.Plate.EQ.lO) THEN 
Pennon = . TRUE . 

RETURN 
END IF 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 
**************Ma3s Loss Regime Decision BAC ir&d**************** 
ToverD = Thick (Plate) /Diam 

IF (PrMat.EQ.2.AND.TMatSp(Plate) .EQ.2) THEN 
IF (ToverD. LT. .1) THEN 
Vf = 1116*ToverD** (-.55) 

ELSE 

Vf = 4757*ToverD** . 08 
END IF 

ELSE IF (PrMat. EQ.l. AND. TMatSp(Plate) .EQ.2.) THEN 
IF ( Shape. EQ. 'CYL') THEN 
Vf=5020* ToverD**. 4 
ELSE IF ( Shape. EQ. ’CUB') THEN 
Vf = AMAXl (1450*ToverD** (-.39) , 

4561*ToverD**42* (Diam*12*2 . 54) ** (-.33) ) 

ELSE 

Vf = AMAXl (1450*ToverD** (-.39) , 

4561*ToverD** . 42* (Diam*12*2 . 54) ** (- . 33) ) 

Vf = AMAXl (2362*ToverD** (-.35) * (Diam*12*2 .54) ** (-.32) , 

: 3937*ToverD**.23 * (Diam*12*2 . 54) ** (- . 25) ) 

END IF 

ELSE IF (PrMat .EQ. 1 .AND. TMatSp(Plate) .EQ. 1 . ) THEN 
Vf = 7021*ToverD**.39 
END IF 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 
RH=RP* (1 .372E-4*Vi* (THICK (Plate) / (2.*RP) ) ** (2 . /3 . ) + . 9) * 

: (1-EXP (- (1 . 48-Theta) /. 166) ) 

RH = .5*Thick (Plate) *11.02* (1-EXP (- (1.48-Theta) /. 166) ) * 

(1-EXP (- (PDense (PrMat) *Vi**2/YStren (TarMat (Plate) ) ) ** . 415 
* (PDense (PrMat) /Dense (TarMat (Plate) ))**(-. 15) /ToverD/29 . 9) ) 
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D180-30550-4 

RH = AMAXl (RH,RP) 

IF (Vi.GT.Vf) THEN 
SumSp=Space (Plate) 

Shater=.TRUE. 

★ ★★ Coinpiite plate spall ■*^*****'***’'******^***'********’**********:*r* 
PlateM=PI*RH**2/COS (Theta) *Thick (Plate) * 

Dense (TarMat (Plate) ) *32.2 

*********Hydrocode Predicted Mass Loss Due to Impact Angle****** 
FTHETA=-2 .433E-4 - 1 . 643E-2*COS (THETA) +3 . 201*COS (THETA) **2- 
2 . 184*COS (THETA) **3 

*★* COMPUTE FRAGMENT NUMBERS************************************ 
IF (PrMat.EQ.3) THEN 
MPro j=PlateM 

RP= (PlateM*3. / (Dense (TarMat (Plate) ) *32.2*4 . *PI) ) ** (1 . / 3 . ) 

END IF 

CALL MasChr (Vi, MPro j , ToverD, Theta, RP, PDense (PrMat ) , 

Dense (TarMat (Plate) ) , PSondV (PrMat) , NBin, 

RF,NR, LRM,AvgMas, PrMat, FrTuff (PrMat) ) 

IF (PrMat.EQ.3) THEN 
PrMat=TMatSp (Plate) 

ELSE 

AllMas=PlateM+MPro j 
DO 2010 I=l,NBin-l 

FrMass (I) =4 . /3. *PI*RF (I) **3*PDense (PrMat) *32.2 
NR(I) =NR(I) *AllMas/MPro j 
CONTINUE 
END IF 

Nr (NBin) = l.DO 
ViLRM=Vr 

*★*★**★★*★ spiray An^le******************************** 

Vc =11155*ToverD** (-.52) 

Epsil = 45* (1-EXP ( (-(Vi-Vf ) /Vc) ) ) /57 .3 
Vc = 4889 * ToverD** (-.23) 

Epsil = 52* (1-EXP ( (-(Vi-Vf) /Vc) )) /57. 3 

*** Assurance of ThetaR+Epsil<90 and Spray Area finite***********- 
ThetaR = AMINl (Theta, 1.41-Epsil) 

*** Calculate Spray Area**************************************** 
DELJ=RP/2 .0* (COS (EPSIL) -TAN(ThetaR) *SIN (EPSIL) ) 

DELJ2=RP* (1.0-TAN (ThetaR) *TAN (EPSIL) ) 

J=Space (Plate) *SIN (GAMMA) /SIN (ThetaR+GAMMA) 

X= (J*SIN (EPSIL) /2.+DELJ) * (1 . /SIN (ThetaR+GAMMA+EPSIL) - 
1 . /SIN (ThetaR+GAMMA-EPSIL) ) 

Y=X*SIN (ThetaR+GAMMA) 

R= ( J-X*COS (ThetaR+GAMMA) ) *TAN (EPSIL) +DELJ2 
B=SQRT (R**2-Y**2) ■ 

A= ( J*SIN (EPSIL) /2 . +DELJ) * (1 . /SIN (ThetaR+GAMMA- 
EPSIL) +1 . /SIN (ThetaR+GAMMA+EPSIL) ) 

AS=PI*A*B 

★A******************************************************* 

*** Allowance for increased penetration due to spalling of **** 

*** next plate ************************************************ 
EffP=1.7 

**************************************************************** 

ELSE 

IF (PrMat.EQ.3) THEN 

MProj=3 . 1415926*Rh**2*Thick (Plate) 

*Dense (TarMat (Plate) ) *32 .2 
PrMat=TMatSp (Plate) 

END IF 
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C 


Vi=Vr 
END IF 

ELSE 


Q rest of this subroutine contains the evaluation* 

Q ★**★★★*★**★ of shatter and fracture regime multiple cratering* 

C *** Allowance for increased penetration due to spalling of **** 

Q ★** next plate ********************************^*^************* 

Thick (Plate) * Thick (Plate) /EffP 

Q ★★**★★★★**★★***★★★**★*★★*★★★*★**★★*★**★★★***★**★**★*★★★**★★*★★★★ 

c *** COMPUTE PLATE CRATER Depth and Radius*********************** 

DO 2030 I*l,NBin 
D=2.*RF(I) 

PGrady=0 .281*D* (PDense (PrMat) /Dense (TarMat (Plate) ) ) ** (1, /3 . ) 

: * (PDense (PrMat) * (Vr*COS (Theta) ) **2/ 

: (2 . *YStren (TarMat (Plate) ) ) ) **0 . 31 

IF (PrMat. EQ.l) THEN 

Pet =* D* (Vr*COS (Theta) /12468 .) **1 .32 
P(I) = AMINKPet.PGrady) 

IF (Vr.LT. 3. 9*3281) THEN 

RC(I) * P(I)/2.*(Vr/3281./3.8) **(-1.32) 

ELSE 

RC(I) = P (I) /2.*(Vr/3281./4.6) **.2 
END IF 
ELSE 

Pet = D*2.33E-5* (Vr*COS (Theta) ) **1.16 
P(I)= AMINl (Pet.PGrady) 

RC (I) =P (I) / (1-EXP (-Vr/5578 . ) ) 

END IF 


C 


C 

2030 

C 

c 

c 

c 

c 

c 



2110 


2210 


*** COMPUTE AVERAGE IMPACTS WITHIN CRATER************** 
AC(I)=PI*RC(I) **2/Fl 

AC(I)=“DMINl(Ac(I) , .99999 9 99999 9D0*AS) 

PCR ( I ) *DMIN1 ( IDO , AC ( I ) /AS ) 

LAMBDA(I)=NR(I) *AC(I) /AS 
SigSq(I) = Lambda (I) * (IDO-PCR(I) ) 

Sigma (I) » SQRT (SigSq (I) ) 

CONTINUE 

*** New Version eight section************************** 
*** This subroutine finds the minimum number of each*** 
*** size particle that must impact in one crater to *** 
*** penetrate the plate ^ how many craters they are in,* 
*** and how many fragments are involved in shallower*** 
*** craters ,**********************************★**★★**** 
CALL PenK (Plate, Thick, NBin,Maxk) 

CALL Count r 

(NBin, P, Thick (Plate) ,Maxk, Intact, Nr, Ac, As) 

*** Number and Area of Holes and Residual Particles**** 
HoArea^As* (1 .DO-Intact) 

PlateM = HoArea*Thick (Plate) *Dense (Plate) *32 . 2 
AllMas=0 . 

DO 2110 I=l,NBin-l 

AllMas=FrMass (I) *Nr ( I ) +AllMas 
CONTINUE 

IF (AllMas.GT.O) THEN 
DO 2210 I=l,NBin-l 

NR (I) =NR(I) * (1 .tPlateM/AllMas) 

CONTINUE 
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END IF 

C *** Separate calculation for LRM**** 

C *** This option is for single penetrators*^************** ******** * 


Call ResVel 

: (Vr,ViLRM,RF(NBin) , PDense (PrMat ) , Dense (TarMat (Plate) ) , 

: Thick (Plate) , Theta, PrMat, TMatSp (Plate) ) 

C ** Convert V to Km/ S and MProj to grams 

ViX = Vi/3281. 

MProjX - LRM * 454. 


C ** Largest Residual Mass ** 

ToverD=Thick (Plate) /2 . /Rf (NBin) 

CALL RFMax (MProjX, PDense (PrMat) , ViX, RF (NBin) , ToverD, MRMax, 
: PSondV(PrMat) , PrMat, Vc, Theta, FrTuff (PrMat) ) 

LRM=MrMax/454 

RF (NBin) =(LRM*3. / (PDense (PrMat) *32.2*4. *PI) ) ** (1. /3 . ) 


C 

C 

C 


C 

C 


*** Test for Pennon and End of Run*********************** 

IF (HoArea.LT. . 000000069 .AND .Vr. LE . 0 . 00001) THEN 
IF (HoArea.LT.AC(l) ) THEN 
Pennon = .FALSE. 

RETURN 

ELSE IF (Plate.EQ.10.OR.Thick(Plate+l) .EQ.0.0) THEN 
Pennon == . TRUE . 

RETURN 
END IF 
ViLRM=Vr 
LastSp=SumSp 
SumSp=SumSp+Space (Plate) 

As=As* (SumSp/LastSp) **2 

★ ★★★*★★★★*★★★**★*★★★**★***★★★★*★★*■*****★****★*★★***★******* 

of shatter evaluation************** 


END IF 
2040 CONTINUE 
RETURN 
END 
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SUBROUTINE RFMax>(M, RhoP, V, RP , ToverD , MrMax, C, PrMat, Vc, Theta, Kic) 

M Initial Impactor Mass Grains 

MrMax Mass of the Largest Residual Particle Same as above 

RhoP Impactor Density Slugs/Ft^3 

Rp Initial Impactor Radius (ecjuivalent sphere) Ft 

V Impactor Velocity Km/Sec 

Shock Velocity Ft/Sec 

Kic Fracture Toughness MPa m^ . 5 

Theta Approach angle Radians 

PrMat Projectile Material 1: Steel, 2: Aluminum , 3 : Ice 

REAL Kic, k, MrMax, M,MrOMs,MrOMsC 

REAL MrMaxP,MrOMsP 

REAL MrMaxT,MrOMsT 

REAL RhoP, V, RP, ToverD, C, FTovrD, Vc 

INTEGER PrMat 


k=4.18E6 

IF (ToverD. LT. .1) THEN 
FTovrD*1180 . 

ELSE IF (ToverD. GE. .1. AND. ToverD. LT, .2) THEN 
FTovrD=697*ToverD** (-.23) 

ELSE IF (ToverD. GE. :2 .AND. ToverD. LT. .4) THEN 
FTovrD=244*ToverD** (-.881) 

ELSE IF (ToverD. GE. .4 .AND. ToverD. LT. .8) THEN 
FTovrD*1500*ToverD**l. 1 


ELSE 

FTovrD=1170 . 


END IF 

IF (PrMat.EQ.l) THEN 
FTovrD=FTovrD*7 . 78 


END IF 

MrOMs = k* (Kic/ (RhoP*32 .2*0 ) *^2/V**2/ (RP*2*12*2 .54) *FTovrD 
MrOMsT = MrOMs *COS (Theta) ** (-2) 

MrOMsP = MrOMs *COS (Theta) 

Vc =(8.47E4*MrOMs*V**2) **(1/10.93) 

IF (V.LT.Vc) THEN 
MRMaxP=M*MrOMsP 
ELSE 

MrOMsC=l . 18E-5* (Vc) **8 . 93 
MrMaxP=M*MrOMsC* (V/Vc) ** (-5.5) 

END IF 

IF (V*COS (Theta) .LT.Vc) THEN 
MRMa xT-M*MrOMs T 
ELSE 

MrOMsC=l . 18E-5* (Vc) **8 , 93 
MrMaxT=M*MrOMsC* (V*COS (Theta) /Vc) ** (-5.5) 

END IF 


MrMax = AMAXl (MrMaxP,MrMaxT) 
IF (PrMat.EQ.l) MrMax=MrMaxP 
MrMax = AMINl (MrMax, M*. 9999) 
RETURN 
END 
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SUBROUTINE PenK (Plate, Thick, NBin,Maxk) 

DOUBLE PRECISION Nr , Per , Lambda, SigSq, Sigma , Pk ( 5 ) , SumPr (5 ) , Pk2 

DOUBLE PRECISION As, Ac, Test Ac 

INTEGER Bin,Plate,MaxK(5) , I, BinsDo, NBin 

REAL Thick (10) ,P,Vc 

LOGICAL BINDON(5) 

INTEGER k(5),MinI 

DOUBLE PRECISION kProbs ( 5 , 0 : 15 ) 

REAL LnPk,LnkFac 
COMMON /Count /kP robs 

COMMON /Prob/Nr(5) ,Pcr(5) , Lambda (5) ,SigSq(5) , Sigma (5) 

COMMON /Crater/As, Ac (5) ,P (5) 

*** k(NBin) is the number of each particle size that must **** 

*** impact in one crater to make a hole . *****************"*"* 

This loop finds the fraction of the plate that is not hit by ***-*^** 
*** a fragment of size I (P(0)) . BinDon are initialized*** 
TestAc=lD0-lD-3*Ac (1) /As 
BinsDo=0 
DO 10 1=1, NBin 
k(I) =0D0 

CALL Prs (I,Pk(I) ,k,NBin) 
kProbs(I,0)=Pk(I) 

SiimPr (I)=Pk(I) 

*** If there is not room for one more crater on the plate then ****** 
★ ★ stop using this particle size *********************************** 
IF (SuitlPr (I) .GT.TestAc.OR. 

(K(I) *P (I) ) .GT. Thick (Plate) ) THEN 
BinDon ( I) =. TRUE. 

Bin3Do=BinsDo+l 

kProbs (I, 1) =lD0-kProbs (I, 0) 

ELSE 

BinDon ( I) =. FALSE. 

END IF 

ic******************************************************************** 

CONTINUE 
END DO 

■ki(icifiiifkicir'kiti(*:*itc***'kit*************************************************** 

*** This subroutine finds which fragment size has the least SumPr ***** 
*** SumPr is the fraction of the plate that has craters of depth <= k** 

■k-k'k-kititicir'kir************************************************************* 

*** This loop sums up the area of the plate that is not penetrated,**** 
*** while keeping the area covered by craters of depth <=k for each *** 
it itciK size approximately equal ****************************************** 
IF (BinsDo. GE.NBin-1) GOTO 30 

CALL Minil (Mini, BinDon, NBin, SumPr) 
k(Minl) = k(MinI)+l 

*** This subroutine Calculates the fraction of the plate that is **** 
*** covered by craters from exactly k particles of size Mini ******** 
CALL PrS (Mini, Pk (Mini) ,k, NBin) 

icir******************************************************************* 

*** Add Up the fraction of the spray area accounted for, and the **** 
*** fraction of the particles used so far**************************** 
SumPr (Mini) =SumPr (Mini) +Pk (Mini) 
kProbs (Mini, k (Mini) ) =Pk(MinI) 

icie***************************************************************** 

*** If there is not room for one more crater on the plate then ****** 
it it it stop using this particle si 2 e************** ********************* * 
IF (SumPr(Minl) .GT.TestAc.OR. 

(K(Minl) *P (Mini) ) .GT . Thick (Plate) ) THEN 
BinDon (Mini ) = . TRUE . 

BinsDo=BinsDo+l 
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Maxk (Mini ) =K (Mini) 

END IF 

GOTO 20 
30 CONTINUE 

K(NBin) = 1 

kProbs (NBin, 1) =lD0-kProbs (NBin, 0) 

Maxk(NBin) = 1 

Q ★★★*★★★★★*★★★★**★★★**★★★***★★★*★★★★★★*★★★★★*★★***★**★******★**★★**★★★★★ 

RETURN 

END 
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C 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE Minil (Mini , BinDon, NBin, SumPr) 

LOGICAL BinDon(5) 

INTEGER BinsDo 

DOUBLE PRECISION SumPr , MinSum 
DIMENSION SumPr (5) 

MinSum=lD0 
DO 10 I=l^NBin-l 

IF ( .NOT.BinDon (I) .AND. SumPr (I) .LT.MinSum) THEN 
MinI=I 

MinSum^SumPr (I) 

END IF 
CONTINUE 
END DO 
RETURN 
END 

SUBROUTINE PrS ( I , PJc, k, NBin) 

DOUBLE PRECISION LastTe (5) , PkMin, FPi 
DOUBLE PRECISION Nr, Per , Lambda, SigSq, Sigma, Pk, SumPr 
DOUBLE PRECISION As, Ac 
DIMENSION k(5) 

DIMENSION PkMin(5) ,kMin(5) 

COMMON /Prob/Nr (5) , Per (5) , Lambda (5) , SigSq(5) , Sigma (5) 
FPi=lD0/SQRT (2D0 *3 . 1 415 92 6D0 ) 

IF (Nr(I) .GE, 50. AND. Lambda (I) .LT.5) THEN 

*** This section calculates the poisson approximation to *** 
★** the binomial ^istribution^^*********^******************* 

IF (K(I) ,EQ.0)THEN 

*** Initialize P (k) for first value*********************** 
Pk=DEXP (-Lambda (I) ) 

ELSE 

*** Calculate P(k) from p (k-i) **************************** 
Pk=LastTe (I) *Lambda (I) /K(I) 

END IF 

LastTe (I) =Pk 

★ *★★★★***★***★*★*■★*****★★**★*★*★★★★**★★*****■****★★★*★**★*★★★ 
ELSE IF(Pcrd) .GT. . 1 . AND . Per ( I ) . LT . .9. AND. 

Nr (I) .GT.9./ (Per (I) *(l-Pcr(I) ) ) ) THEN 
*** This section calculates the normal approximation to **** 
the binomial distribution******************^************ 
Pk=FPi/Sigma (I) /DEXP (1/ (2 .D0*SigSq(I) * (k(I) -Lambda (I) ) **2) ) 
★*★★★**★*****★*★★**★*★★★**★*★★★★★***★***★****★*★***★*★★**★** 

ELSE 

***This section calculates the binomial distribution********** 
IF (k(I).EQ.O) THEN 

*** Find least non-zero P(k) and corresponding k************ 
CALL SetBin(I,PkMin,kMin,NBin) 

LastTe(I)=PkMin(I) 

IF (kMin(I) .EQ.O) Pk=PkMin(I) 

★ **★*★*****■★***★★*★**★**★★*★*★★★★*★*******★★*★*★★★★★*★**★*** 
ELSE IF (k(I) .GT.kMin(I) ) THEN 

*** calculate the non-zero p (}c) s*** ************************* 
Pk = LastTe (I) *Pcr (I) / (IDO-Pcr (I) ) * (Nr (I) -k (I) +1D0) /k (I) 
LastTe (I) =Pk 

ELSE IF (k(I) .EQ.KMin(I) ) THEN 
Pk = PkMin(I) 

ELSE 

Pk = ODO 
END IF 
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END IF 
RETURN 
END 
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SUBROUTINE SetBin ( I , PkMin^ JcMin, NBin) 

C *** The Probability of the mean case occuring is computed ****** 

C *** in subroutine Binomial. P (JcMin) is calculated from ******** 

C *** this P (Lambda) . The magnitude of P(kMin) is arbitrarily *** 

Q ★★★ chosen to be about 3.*^Q‘^-»7 ********* ************************* 

COMMON /Prob/Nr(5) ,Pcr(5) , Lambda (5) , SigSq (5) , Sigma (5) 

DOUBLE PRECISION Nr , Per, Lambda, SigSq, Sigma, Pk, SumPr, N1 , PkMin, P 1 
DIMENSION PkMin(5) ,kMin(5) 
k=Lambda ( I ) 

Nl=Nr (I) 

Pl=Pcr (I) 

CALL Binomi (k,Nl,Pk,Pl) 

1 IF ( .NOT. (Pk.GT.lD-lS.AND.k.GE.l) ) GOTO 10 

Pk = Pk* (IDO-Pcr (I) ) /Per (I) *k/ (Nr (I) -k-lDO) 
k = k-1 
GOTO 1 

10 CONTINUE 
C END DO 

kMin (I) =k 
PkMin (I) =Pk 
RETURN 
END 
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SUBROUTINE Binomi (kl, Nr, Pk, Per) 

0003 


DOUBLE PRECISION Nr 

0004 


DOUBLE PRECISION Pk, Per, Lambda, LastPk, Qcr 

0005 


DOUBLE PRECISION Top, Lower 1 , Lower2 , k, Expon 

0006 


Lambda=kl 

0007 


k=kl 

0008 

C 

★ ★★★★★★★★★Binomial Distribution, Caleulates p (k) ************ 

0009 


Lowerl = OdO 

0010 


Lower2 = OdO 

0011 


Top = Nr-k 

0012 


Pk - IdO 

0013 


Qer = IDO-Per 

0014 


LastPk = ODO 

0015 


IF (Qer .EQ. 1 .DO) THEN 

0016 


IF (k.EQ. 0 .DO) THEN 

0017 


Pk=l .DO 

0018 


ELSE 

0019 


Pk=*0 .DO 

0020 


ENDIF 

0021 


ELSE 

0022 

3040 

IF (Lowerl+Lower2+Top.GE. (2*Nr) .OR. Pk.EQ. LastPk) GOTO 3030 

0023 


LastPk » Pk 

0024 

3060 

IF (Top.GE.Nr .OR.Pk.GE. 1E23) GOTO 3050 

0025 


Top = Top + IDO 

0026 


Pk = Pk * Top 

0027 


GOTO 3060 

0028 

3050 

CONTINUE 

0029 

3080 

IF (Lowerl. GE.k. OR. Pk.LE.lE-20) GOTO 3070 

0030 


Lowerl = Lowerl + IdO 

0031 


Pk » Pk /Lowerl*Pcr 

0032 


GOTO 3080 

0033 

3070 

CONTINUE 

0034 


IF (Lowerl . GE . k . AND . Lower2 . LT . Nr-k . AND . Pk . GT . lD-2 7 ) THEN 

0035 


Expon=DMINl ( ( (-28 .DO-DLOGIO (Pk) ) /DLOGIO (Qer) ) , (Nr-k-Loi 

0036 


IF (Expon. GT.O) Pk=Pk*Qer**Expon 

0037 


Lower2 * Lower2+Expon 

0038 


ENDIF 

0039 


GOTO 3040 

0040 

3030 

CONTINUE 

0041 


END IF 

0042 

C 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

0043 


RETURN 

0044 


END 
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SUBROUTINE MasChr (V,M, ToverD, Theta , RP , RhoP , RhoT, C, NBin, 

: MenRadr Nr,MrMax,MAvg^ PrMat^ FrTuf f ) 

DOUBLE PRECISION NR (5) 

REAL MProj,M,MRMax,MAvg,MenRad(5) ,MPlate 
REAL MasLim, NrmF, NrmS^ BinMen (5) , BinMas (0:5) 

INTEGER Bin,PrMat 
PI = 3.14159 

C This subroutine divides the residual mass into bins of ecjual mass 

C The number of fragments in each bin are also noted 

C ** Convert V to Km/S and MProj to grams 

Vi = V/3281. 

MProj = M * 454. 

MPlate = M * 454. 

C ** Largest Residual Mass ** 

IF (PrMat,EQ.3) THEN 
CT = 17569 
RhoT = 5.39 

CALL RFMax (MPlate, RhoT, Vi, RP, ToverD, MRMax, 

: CT , P rMat , Vc , Thet a , FrTu f f ) 

ELSE 

CALL RFMax (MProj, RhoP , Vi ^ RP , ToverD , MRMax , 

: C, PrMat,Vc, Theta, FrTuf f) 

END IF 

C ** Average Residual Mass ** 

CALL AvgRes (ToverD, Theta, MPlate, Vi, Alfa, MAvg) 

IF (Vi.GT.Vc) MAvg=MAvg* (Vi/Vc) ** (-5.5) 

C ** Parameters and Normalization Constants for Weibull Distribution ** 

CALL ShCons (ToverD, Theta, MProj , Vi, MAvg, 

: bS, sS,bF, sF,NrmS,NrmF,MRMax) 

C ** Size Shatter Begins ** 

CALL Shhold (MProj , Vi, TD, Theta, MAvg, bF, sF, bS , sS, 

: NrmF, NrmS, FrgLim, Mas Lim, MRMax) 

C ** Upper Bound and Mean Fragment weight for each Bin ** 

CALL BinLim (NBin, MAvg, MRMax, BinMas , BinMen, MPro j , 

: sF, bF, sS, bS, NrmS, NrmF, Mas Lim) 

C ** Loop Determining Number of Fragments in each Bin in Shatter Regime 

DO 10 Bin = l,NBin-l 

Nr (Bin) = (BinMas (Bin) -BinMas (Bin-1 ) ) /BinMen (Bin) 

10 CONTINUE 
C END DO 

Nr (NBin) = 1 

C ** Convert Bin Masses into lbs from grams then to Radius in Feet** 

DO 20 Bin = l,NBin 

BinMen (Bin) =BinMen (Bin) / 454 . 

MenRad(Bin) = (BinMen (Bin) *3 ./ (RhoP*32 .2*4 . *PI) )** (1 . /3 . ) 

20 CONTINUE 
C END DO 

MrMax=MrMax/ 454 . 

MPlate = MPlate/454. 

MProj = MProj/454. 

RETURN 

END 
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0002 


SUBROUTINE MasDis (M, MAvg, b, 3 , NrmC, MasSiim) 

0003 

C 


0004 

c 

THIS PROGRAM COMPUTES SHATTER Mass distribut. 

0005 

c 

STEEL CUBES ON ALUMINUM PLATE DATA. 

0006 

c 

V = IMPACT VELOCITY (FEET /SECOND) 

0007 

c 

TD = T OVER D 

0008 

c 

M = PROJECTILE MASS (GRAINS) 

0009 

c 

THETA = ANGLE OF OBLIQUITY 

0010 

c 

ALP HA= ANGLE OF IMPACT 

0011 

c 


0012 


REAL MAvg,M^ NrmC^ MasSum 

0013 


W = M/MAvg 

0014 

c 

**Mass in Bin** 

0015 


determ=b+s*LOG (W) 

0016 


IF (Detenn.LT,-80) THEN 

0017 


MasSum=0 

0018 


ELSE IF (Determ. LT'. 4) THEN 

0019 


MasSum = NrmC* ( 1 -EXP ( -EXP (Determ) ) ) 

0020 


ELSE 

0021 


MasSum=NrmC 

0022 


END IF 

0023 


RETURN 

0024 


END 
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SSSSSSSSSSSSSS SALVO*s CHANGES SSSSSSSSSSSSS 
SUBROUTINE ShCons (TD, Theta, Vi, MAvg, 

: bS,sS,bF,sF,NrmCS,NrmCF, LRM) 

REAL M,NrtnCS,NrmCF,MT2,MAvg, IntegS, IntegF, LRM 
sS=l .8-.04*TD/COS (THETA) -.042*M 
& +.34* (COS (2 ,*ALPHA) **2. ) - (1-EXP (-. 64*Vi) ) 

bS=-2 . 3-1 . l*TD/COS (THETA) + . 0675*M 
& - . 27*Vi+l . 4* (COS (2 . *ALPHA) **2 . ) 

sF-1 ,38- . 510*TD/COS (THETA) + , 036*M 
& +3.31* (COS (2 .*ALPHA) **2.) -(1-EXP (-.390*Vi) ) 

bF=-l . 17+.313*TD/COS (THETA) +. 0 67 5*M 
& +.508*Vi-l. 41* (COS (2 .*ALPHA) **2 . ) 

** Total mass in shatter regime ** 

MT2 =(-.957+EXP(-.0013*M) ) * (Vi** ( . 38*M+2 . 5) ) 

MT2 = AMAXl (MT2, lE-20) 

MT2 = AMIN1(MT2,M) 

**Normalization to Largest Residual Mass** 

IntegS = 1-EXP ( -EXP (bS) * (M/MAvg) **sS) 

IntegF = 1-EXP ( -EXP (bF) * (M/MAvg) **sF) 

NrmCS = MT2/ IntegS 
NrmCF = M /IntegF 
detrml=bS+sS*ALOG (LRM/MAvg) 

IF (Detrml .LT.-15) THEN 
NrmCS=le-30 

ELSE IF (Detrml.LT.4) THEN 
IntegS = 1 -EXP ( -EXP (Detrml) ) 

NrmCS = MT2/ IntegS 
ELSE 

NrmCS = MT2 
END IF 

detrm2=bF+sF*LOG (LRM/MAvg) 

IF (Detrm2.LT.-15) THEN 
NrmCS=le-30 

ELSE IF (Detrm2 .LT. 4) THEN 
IntegF = 1-EXP (-EXP (Detrm2 ) ) 

NrmCF = M/ IntegF 
ELSE 

NrmCF = M 
END IF 

if (SF) 1,2,2 
sF=0 . 

if (sS) 3, 4, 4 
sS=0 . 


0046 4 RETURN 


0047 


END 
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SUBROUTINE Shhold (MPro j , Vi^ TD, Theta, MAvg, bF, sF,bS, sS, 

: NrmF, NrmS, FrgLim,MasLim, LRM) 

REAL LowLim,Mean,Mf s. Mss, MAvg, MasLim, MPro j , NrmF, NrmS, M, LRM 
HiLim = MProj 
LowLim = 0 
DO 10 1=1,20 

Mean = (HiLim+LowLim) /2 

CALL MasDis {Mean, MAvg, bF, sF, NrmF, Mfs) 

CALL MasDis (Mean , MAvg, bS , sS , NrmS , Ms s ) 

IF (Mfs .GT. Mss) THEN 
HiLim = Mean 
ELSE 

LowLim = Mean 
END IF 
10 CONTINUE 
C END DO 

FrgLim = Mean 

MasLim = AMINl (Mss, MPro j -LRM) 

RETURN 

END 
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D 180-30550-4 

SUBROUTINE BinLim (NBin , MAvg, LRM, BinMas , BinMen, MPro j , 

: sF/bF, sS^bS,NnnS^NnnF,MasLim) 

REAL MAvg, LRM, MPro j , MasLim, NrmSr NrmF, Binint , MasMen^MFrac (0:4) 
DIMENSION BinMen(5) ,BinMas(0:5) ,MasMen(5) 

INTEGER Bin.ShtBin 

DATA MFrac/0., .25,. 5,. 75, 1./ 

ShtBin=*0 

DO 5 Bin=l,NBin-l 

BinMas (Bin) = (MPro j-LRM) *MFrac (Bin) 

MasMen(Bin) - (MPro j-LRM) * (MFrac (Bin) +MFrac (Bin-1) ) /2 . 

IF (BinMas (Bin) , LE .MasLim) ShtBin=Bin 
5 CONTINUE 
C END DO 

C ** Bin Limit and Mean for Shatter ** 

DO 10 Bin = l,ShtBin 

BinMen (Bin) = MAvg* (-EXP (-bS) *DLOG ( IDO-MasMen (Bin) /NrmS) ) ** (1/sS) 
10 CONTINUE 
C END DO 

C ** Bin Limit and Mean for First Bin in Fracture ** 

Bin = ShtBin+1 
IF (Bin.LE.NBin-1) THEN 

IF (MasLim. GE.MasMen (Bin) ) THEN 

C ** Bin Mean in Case it is Less Than the Fracture Threshold ** 

BinMen (Bin) =MAvg* (-EXP (-bS) *DLOG ( IDO-MasMen (Bin) /NrmS) ) ** (1/sS) 
ELSE 

BinMen (Bin) =MAvg* (-EXP (-bF) *DLOG ( IDO-MasMen (Bin) /NrmF) ) ** (1/sF) 
END IF 
END IF 

C ** Bin Limit and Mean for Fracture ** 

DO 20 Bin = ShtBin+2, NBin-1 

BinMen (Bin) ^ MAvg* (-EXP (-bF) *DLOG ( IDO-MasMen (Bin) /NrmF) ) ** (1/sF) 
20 CONTINUE 
C END DO 

C ** Bin Mean for largest bin is LRM (Largest Residual Mass) ** 

BinMen (NBin) = LRM 
RETURN 
END 


0001 

0002 

0003 

0004 C 

0005 

0006 

0007 

0008 
0009 


S UBROUT I NE AvgRe s (ToverD, Theta, M,V, Alfa, MAvg) 

REAL MAvg,M 

** Average Fragment Mass ** 

MAvg = . 0109-.00879*ToverD/COS (Theta) + . 00 050 6 *M- . 0 0 42 8 *V+ 
: .0110*COS (2*Alfa) **2 

MAvg = AMaxl (MAvg, 0 . 005) 

RETURN 

END 
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0001 



0002 


SUBROUTINE Countr (NBin, P, Thick, Maxk, Intact, Nr, Ac, As 

0003 


INTEGER Bin, NBin, SmBin 

0004 


INTEGER Digit (5) , HoMin (5) , I,Maxk (5) 

0005 


REAL Thick,HoDept,P (5) 

0006 


DOUBLE PRECISION Probs (5, 0 : 15) 

0007 


DOUBLE PRECISION Intact, ITArea, ITArSl 

0008 


DOUBLE PRECISION Nr ( 5 ) , Ac (5) , As 

0009 


DOUBLE PRECISION ArHoll, ArHol2, ArHol3 

0010 


DOUBLE PRECISION ArHol4, ArHolS 

0011 


DOUBLE PRECISION PrTemp, DigTpl, DigTp2, DigTp3 

0012 


DOUBLE PRECISION DigTp4,DigTp5 

0013 


LOGICAL UnInc,OBinlD 

0014 


COMMON /Count/Probs 

0015 


DO 10 Bin = l,NBin 

0016 


HoMin (Bin) = JMINO (INT (Thick/P (Bin) +1) , Maxk (Bin) ) 

0017 


Digit (Bin) =0 

0018 

10 

CONTINUE 

0019 

C 

END DO 

0020 


ArHoll=0 .DO 

0021 


ArHol2=0 .DO 

0022 


ArHol3=0 .DO 

0023 


ArHol4=0 .DO 

0024 


ArHol5=0 .DO 

0025 


lntact=0 .DO 

0026 


Bin = 0 

0027 


HoDept = 0 

0028 


OBinld = .FALSE. 

0029 

C 

DO WHILE (Bin. LE. NBin) 

0030 

2 

IF ( .NOT. (Bin. LE. NBin) ) GOTO 20 

0031 


IF (HoDept. GT. Thick) THEN 

0032 


OBinld - .FALSE. 

0033 


SmBin=l 

0034 

C 

DO WHILE (Digit (SmBin) .EQ.O) 

0035 

21 

IF ( .NOT. (Digit (SmBin) .EQ.O) ) GOTO 210 

0036 


SmBin=SmBin+l 

0037 


GOTO 21 

0038 

210 

CONTINUE 

0039 

C 

END DO 

0040 


Digit (SmBin) =0 

0041 


HoDept=0 . 

0042 


Bin = SmBin+1 

0043 


Uninc = .TRUE. 

0044 

c 

DO WHILE ( Bin. LE. NBin. AND. Uninc) 

0045 

22 

IF ( .NOT. (Bin. LE. NBin. AND. Uninc) ) GOTO 220 

0046 


IF (Digit (Bin) .LT.HoMin(Bin) ) THEN 

0047 


Digit (Bin) = Digit (Bin) +1 

0048 


Uninc = .FALSE. 

0049 


ELSE 

0050 


Digit (Bin) =0 

0051 


Bin = Bin + 1 

0052 


END IF 

0053 


GOTO 22 

0054 

220 

CONTINUE 

0055 

C 

END DO 

0056 


DO 230 I=SmBin+l,NBin 

0057 


HoDept=HoDept+Digit (I) *P (I) 

0058 

230 

CONTINUE 

0059 

C 

END DO 

0060 


ELSE 

0061 


IF (OBinld) THEN 

0062 


DigTpl=DigTpl+l 

0063 


ITArea = Probs (1, DigTpl) *ITArSl 
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0100 
0101 
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0123 
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ArHoll = ArHoll+ITArea*DigTpl 
ArHol2 = ArHol2+ITArea*DigTp2 
ArHol3 = ArHol3+ITArea*DigTp3 
ArHoi4 = ArHol4+ITArea*DigTp4 
ArHol5 = ArHol5+ITArea*DigTp5 

ELSE 

ITArea=l .DO 

DigTp2=Digit (2) 

PrTemp = Probs (2^ DigTp2) 

ITArea = PrTemp* ITArea 

DigTp3=Digit (3) 

PrTemp =* Probs (3, DigTp3) 

ITArea = PrTemp * ITArea 

DigTp4=Digit (4) 

PrTemp = Probs ( 4, DigTp4) 

ITArea = PrTemp * ITArea 

DigTp5=Digit (5) 

PrTemp = Probs ( 5, DigTp5) 

ITArea = PrTemp * ITArea 

ITArSl=ITArea 

DigTpl=*Digit (1) 

PrTemp - Probs ( 1, DigTpl) 

ITArea = PrTemp * ITArea 

ArHoll = ArHoll+ITArea*DigTpl 
ArHol2 == ArHol2+ITArea*DigTp2 
ArHol3 == ArHol3+ITArea*DigTp3 
ArHol4 = ArHol4+ITArea*DigTp4 
ArHol5 = ArHol5+ITArea*DigTp5 

END IF 

Intact=Intact+ ITArea 
Bin = 1 

OBinld = .TRUE. 

Uninc = .TRUE. 

C DO WHILE (Bin. LE.NBin. AND. Uninc) 

24 IF ( .NOT. (Bin. LE.NBin. AND. Uninc) ) GOTO 240 

IF (Digit (Bin) .LT.HoMin(Bin) ) THEN 
Digit (Bin) = Digit (Bin) tl 
HoDept = HoDepttP (Bin) 

Uninc = .FALSE. 

ELSE 

OBinld = .FALSE. 

HoDept = HoDept -Digit (Bin) *P (Bin) 

Digit (Bin) =0 
Bin = Bin + 1 
END IF 
GOTO 24 

240 CONTINUE 

C END DO 

END IF 
GOTO 2 

20 CONTINUE 
C END DO 

Nr (1) =DMAX1 (ODO.Nr (1) -ArHoll *As/ Ac ( 1 ) ) 
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Nr (2) =DMAX1 (0D0,Nr (2) -ArHol2*As/Ac (2) ) 
Nr ( 3 ) =DMAX1 ( OD 0 , Nr ( 3 ) -ArHol3 *As / Ac ( 3 ) ) 
Nr (4) =DMAX1 ( ODO , Nr ( 4 ) -ArHol4*As/Ac ( 4) ) 
Nr (5) -DMAXl (0D0,Nr (5) -ArHol5*As/AC (5) ) 
RETURN 
END 
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0001 

0002 


SUBROUTINE ResVel 

0003 


: (Vr,V0,RP,RhoP,RhoT, Thick, Theta, PrMat, TarMat) 

0004 

C 

This is the JTCG Residual Velocity Formula 

0005 


INTEGER PrMat, TarMat 

0006 


PresAr = 3 . 14159*RP**2 

0007 


VOcm = VO/ . 03281 

0008 


Weight = 4 . /3 . *3 . 14159*RP**3*RhoP 

0009 


V50 = BalLim(RP, RhoP, RhoT, Thick, Theta, PrMat, TarMat) 

0010 


Q4 = RhoT*Thick*PresAr/ (Weight *COS (Theta) ) 

0011 


VrSq = AMAXl (0 . , V0cm**2-V50**2) 

0012 


Vr = SQRT(VrSq) / (1.+Q4) 

0013 


Vr = Vr* . 03281 

0014 


RETURN 

0015 


END 


0001 




0002 


FUNCTION BalLim 


0003 


: (RP, RhoP, RhoT, Thick, Theta, PrMat , TarMat ) 


0004 


INTEGER PrMat, TarMat 


0005 


IF (PrMat.EQ.3) THEN 


0006 


BalLim = 2.45*3281*(Thick/12./2.54)**(-.15)* 


0007 


: (Thick/RP/2 . ) * (RhoT/RhoP) . 64* (1 . /COS (Theta) ) **1 .01 


0008 


ELSE 


0009 

C 

This is the JTCG V50 formula 


0010 


PresAr = 3 . 14159*RP**2 


0011 


Weight = 4 , /3 , *3 . 14159*RP**3*RhoP*32 . 2 


0012 


WO = .0143 


0013 


IF (PrMat ,EQ. 1) THEN 


0014 


IF (TarMat . EQ . 2 ) THEN 


0015 


Cbf = 41300. 


0016 


Bf = .941 


0017 


H = 1.098 


0018 


F = -.038 


0019 


ELSE 


0020 


Cbf = 80600. 

- 

0021 


Bf = .963 


0022 


H = 1.286 


0023 


F = -.057 


0024 


END IF 


0025 


ELSE 


0026 


Cbf = 92800 


0027 


Bf = .972 


0028 


H = 1.01 


0029 


F = -.105 


0030 


END IF 


0031 


Q8 = RhoP*32 . 2*Thick*PresAr/Weight 


0032 


Qll = RhoP*32 . 2*Thick*PresAr/W0 


0033 


BalLim = Cbf *Q8**Bf /COS (Theta) **H*Q11**F 


0034 


END IF 


0035 


RETURN 


0036 


END 
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c D 180-30550-4 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE CRITDIA 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Critdia determines the diameter of the sphere that just penetrates 
C the given wall configuration at the given impact angle and velocity. 
C The subroutine performs a linear interpolation using the appropriate 
C values from the Response array to estimate the critical diameter. 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition 

C 
C 

C Variable list 
C 

C beta =* impact angle ^ measured from the normal , deg 

C bl * the impact angle nearest to the actual impact angle 

C in the Response array , but less than the actual , deg 

C ibl location of bl in the Response array 


C 

ib2 


ft 

” b2 

If If 

If 

II 


C 

ivl 

= 

If 

” vl 

11 If 

TI 

11 


c 

iv2 

* 

tf 

” v2 

If If 

II 

11 


c 

rl = 

as 

intermediate variable 




c 

r2 ^ 

= 


If 

It 




c 

rll 

= 

value 

in Response array 

at 

location 

ivl, ibl, pid 

c 

rl2 

= 

11 

It If 

If 

II 

II 

ivl, ib2, pid 

c 

r21 

= 

It 

It If 

tf 

11 

II 

iv2, ibl, pid 

c 

r22 

= 

If 

It ft 

ti 

II 

If 

iv2, ib2, pid 


C vl = impact velocity nearest the actual impact velocity in the 

C Response array , but still less than the actual 

C 

C 

C 

C 

INTEGER*2 IBl , IB2 , IVl, IV2 , PID 
C 

INCLUDE * COMMONS . BLK * 

C 

PARAMETER (PI=3 . 1415926536) 

C 

C Determine the location of the nearest velocity to the actual velocity 
C in the Response array, but still less then the actual 
C 

IV1=VR/VINC 

C 

C Check that the location is inside the array 
C 

IF ( IVl.LT.l .OR. IVl.GT.NV ) THEN 
WRITE ( 6,10 )VR 

10 FORMAT ( /IX, * THE RELATIVE VELOCITY (VR) IS OUTSIDE OF THE’, 

1 * RESPONSE ARRAY BOUNDS VR (KM/SEC) = *,E12.5) 

STOP 
END IF 
C 

C Set the location of the velocity just greater than the actual velocity 
C 

IV2=IVl-fl 

C 
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C Check that the location is inside the array 
C 

IF ( IV2.GT.NV ) IV2=IV1-1 
C 

C Calculate the value of the velocity at location ivl 
C 

V1=IV1*VINC 

C 

C Determine the impact angle in deg 
C 

BETA=ACOS (CBETA) *180 . 0/PI 
C 

C Determine the location of the nearest impact angle to the actual 
C impact angle in the Response array, but still less than the actual 
C 

IB1=BETA/BINC+1 

C 

C Check that the location is inside the array 
C 

IF ( IBl.LT.l .OR. IBl.GT.NB ) THEN 
WRITE ( 6,20 )BETA 

20 FORMAT ( /IX, 'IMPACT ANGLE (BETA) IS OUTSIDE THE BOUNDS OF', 

1 ' * THE RESPONSE ARRAY BETA (DEG) = *,E12.5) 

STOP 
END IF 
C 

C Set the location of the impact angle in the Response array that is 
C just greater than the actual 
C 

IB2=IB1+1 

C 

C Check that the location is inside the array 
C 

IF ( IB2.GT.NB ) IB2=IB1“1 
C 

C Calculate the value of the impact angle at location ibl in the Response 
C array 
C 

B1=(IB1-1) *BINC 
C 

C Determine the property id 
C 

PID=ID (2,NEL) 

C 

C Get the four values that surround the actual value in the Response 
C array 
C 

R1 1=RTABLE { I VI , I B 1 , P ID ) 

R12=RTABLE (IVl, IB2,PID) 

R21=RTABLE (IV2, IBl, PID) 

R22=RTABLE (IV2, IB2,PID) 

C 

C Using linear interpolation, estimate the critical diameter 
C 

R1=(R12-R11) * ( (BETA-Bl) /BINC)+R11 
R2={R22-R21) * ( (BETA-Bl) /BINO+R21 
C 

DIAM= (R2-R1) * ( (VR-Vl) /VINC) +R1 
C 

C Finished , return 
C 

RETURN 

C 
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c D 180-305504 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE FLUX 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Flux calculates the meteoroid or debris flux for the given critical 
C diameter based on analysis type. 

C 

C 

C note: for variables contained in the common block; ref err to the main 
C listing for definition 

C 

C Variable List 
C 

C ddiam = diam in double precision ^ cm 
C ge = gravity focusing factor 
C intercept - intercept of the flux equation 
C mass = critical meteoroid mass, g 
C mden = meteoroid density, g/cc 

C re = earth’s radius (including lOOkjn atmosphere), km 
C slope = slope of the flux equation 
C 
C 

INCLUDE ' COMMON3 . BLK ’ 

C 

REAL* 8 DD lAM, GE , INTERCEPT , LD , MASS , MDEN, P I , RE , SLOPE 
C 

PARAMETER (PI=3 . 1 415 92 65358 97 93238D0 ) 

C 

C Set mden 

C 

C 

MDEN=0 .50D0 
C 

C Calculate the focusinng factor, equation 
C is from JSC-30000 
C 

RE=6478 . ODO 

GE=0 .568DO + 0 . 432D0* (RE/ (RE-I-ALT) ) 

C 

C Convert diam to double precision 
C 

DDIAM=DIAM 

C 

C Calculate the flux 
C 

IF ( ITYPE.EQ.l ) THEN 
C 

C For debris use JSC-20001, use stated equations for diameters 
C less then 1 cm , for those greater use third order fit of the 
C curve for region up to 5 cm . 

C 

C The log of the flux varies linearly between 400 and 500 km according 
C to D Kesseler of JSC, 

C 

LD=DLOG10 (DDIAM) 

IF ( DIAM.LT.5.0 ) THEN 
IF ( DIAM. LT. 1.0 ) THEN 

SLOPE=-0 .0010D0*ALT-2 . 020 ODO 
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ELSE 

SLOPE=-0 . 0022D0*ALT-0 . 1400D0 
END IF 

INTERCEPT=+0 . 0036D0*ALT-7 . 26D0 
FLX=10 . ODO** (SLOPE*LD+INTERCEPT) 

ELSE 

WRITE ( 6,100 ) 

100 FORMAT ( /IX, ‘DIAMETER IS GREATER THAN 5 CM LIMIT*) 

STOP 
END IF 
C 

C Correct Flux for difference in Boeing and Nasa definetion 
C 

FLX=FLX*4.0D0 

C 

ELSE 

C 

C For meteoroids use JSC-3000, E-06g < mass < Ig 

C 

MASS=PI* (DDIAM**3) /6.0D0*MDEN 

FLX=10 . ODO** (-14 . 37D0-1 . 213D0 *DLOG10 (MASS) ) 

C 

C Account for earth shielding and gravity focusing , also convert to 
C number of impacts per sq-m per year 
C 

FLX*FLX*GE*3 . 15576D07 
C 

END IF 
C 

RETURN 

C 

END 
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COMMON3 . BLK 


Common Block for Contour Ver 2.0 6/2/87 
C 

C ieim * max nuinber of elements 
C ith “ m&'x’’nuhibet of threats 
C 

PARAMETER (IELM-9000 , ITH-400) 

C 

I i'ifTEGER*2 it ITYPE , NB , NC , NEL , NELM . NT . NV , EXPOSED ( ITH) , 

1 POINT (lELM, ITH) 

C 

INTEGEii*4 NR , ID(2. > lELM) , RANGE ( 2 ) 

C 

REAL*4 BINCVGBETA,DIAW-,'V1!JC, AREA<IELH) ,GE0METRY(IELl'{.ITH) , 

1 RTAStEtlO , 90 , 10) , THS5;iiT(4 . ITM) 

REALMS ALT , ET iflE , FLX 
C 

COMMON Ai.t i BiNC , CBETA ; D1 AM / ET IME , FLX IT , I TYPE ■ NB , NO , NEL , NELM , NR , 

1 Nf^NV',VR,VINtS AREA; EXPOSEB-.GEOMETKY, ID:, POINT , RANGE , RTABLE , 

2 threat'-' 

C 
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